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COMPUTER  SYSTEMS  FOR  REDUCTION  AND 
ANALYSIS  OF  HYDROLOGIC  DATAV^ 


By|V.  O.lshanholtz  and  J.  b|  Bu 


Burfordf 


INTRODUCTION 

A  system  of  computer  programs  has  been  developed  at  the  Blacksburg,  Va.,  Watershed 
Hydrology  Research  Project  for  reducing,  processing,  and  analyzing  several  types  of  hydrologic 
data.  The  system  includes  programs  for  handling  data  related  to  precipitation,  streamflow, 
temperature,  air  movement,  soil  moisture,  and  land  use.  Programs  are  designed  to  achieve  the 
routine  processing,  to  make  certain  analyses  and  summaries,  and  to  select  and  arrange  data  in 
the  required  format  for  direct  listing  on  the  standard  forms3-4  which  have  been  developed  for 
the  U.S.  Department  of  Agriculture  Miscellaneous  Publication,  "Hydrologic  Data  for  Experimental 
Agricultural  Watersheds  in  the  United  States,"  which  is  a  continuing  series. 

The  programs  are  written  in  Fortran  IV5.6  for  use  on  the  IBM  7040-1401  computer  and 
are  designed  to  accept  input  information  in  data  card  or  magnetic  tape  form  with  the  output  on 
magnetic  tape. 

Five  separate  programs  are  included  in  the  system,  as  follows: 

Program 

A.  Precipitation  reduction. 

B.  Runoff  reduction. 

C.  Miscellaneous. 

D.  Update 

E.  Publication  summaries. 

Each  program  is  discussed  in  separate  sections  of  this  report. 

PROGRAM  A  (PRECIPITATION  REDUCTION  PROGRAM) 

The  precipitation  program  performs  the  following  computations: 

1.  Totals  precipitation  by  storms,  days,  months,  and  years. 

2.  Determines  the  intensity  for  all  tabulated  time  increments. 


1  Soil  and  Water  Conservation  Research  Division,  Agricultural  Research  Service,  U.S.  Department  of  Agricul- 
ture, in  cooperation  with  the  Virginia  Agricultural  Experiment  Station,  Virginia  Polytechnic  Institute,  Blacks- 
burg. 

2  Formerly  agricultural  engineer,  USDA,  ARS.SWCRD,  Northeast  Branch,  Blacksburg,  Va.,  presently  agricultural 
engineer,  Agricultural  Engineering  Department,  Virginia  Polytechnic  Institute  Division  of  Research,  Blacksburg,; 
and  hydraulic  engineer,  USDA,  ARS,  SVVCRD,  Northeast  Branch,  Blacksburg,  Va. 

^  Hobbs,  H.  W.,  and  Crammatte,  F.  B.    Instructions  for  Preparation  of  Hydrologic  Data  for  Publication.  1964. 
[Copy  may  be  obtained  from  U.S.  Dept.  Agr.,  Agr.  Res  Serv.,  Soil  and  Water  Conserv.  Res.  Div.,  Beltsville,  Md.] 
sf  Minshall,  N.  E„  Harrold,  L.  L.,  Holtan,  H.  N„  and  others.    Field  Manual  for  Research  in  Agricultural  Hydrol- 
ogy.   U.S.  Dept.  Agr.  Agr.  Handb.  224.    1961. 

5  IBM  7040/7044  operating  system  (16/32K)  Fortran  IV  language,  file  7040-25,  form  C-28-6329-2. 

6  IBM   7040/7044  operating  system  (16/32K)  programmer's  guide,  file  7040-36,  form  C28-6318-4. 


3.  Determines  the  maximum  intensities  for  selected  time  intervals  of  2,  5,  10,  15,  20,  and 
30  minutes  and  1,  2,  4,  6,  and  12  hours  for  all  storms  having  a  total  accumulation  ^  0.25  inch. 

4.  Determines  the  maximum  intensities  for  the  station  record  for  the  above  selected  time 
intervals. 

5.  Totals  the  time  that  precipitation  actually  occurred  by  months  and  for  the  period  of  rec- 
ord being  analyzed,  which  is  normally  1  year. 

6.  Determines  the  time  interval  between  storms. 

7.  Checks  the  data  for  negative  time  intervals. 

A    listing   of   the    source  program  and  a  detailed  description  of  the  Fortran  variables  are 
given  in  appendix  lists  Al  and  A2,  respectively. 


Program  Constants 


Three  storage  areas  are  reserved  for  constants  by  internal  programming  routines  and  are 
defined  as: 

1.  Days  per  month  (M(I),  1=  1,  12). 

2.  Selected  time  intervals  for  maximum  intensity  computations  for  12  different  time  intervals 
(IMT(I),  I  =  1,  12). 

3.  Time  curve — accumulated  time  by  months  from  the  beginning  of  the  year  (MHR(I),  1=1, 
12). 

The  numerical  value  for  each  constant  is  given  in  table  Al. 

TABLE  Al. — Constants  required  by  the  precipitation  reduction  program 
[Where  two  values  are  given,  the  second  value  refers  to  leap  year] 


I 

M 

IMT 

MHR 

I 

M 

IMT 

MHR 

1 

2 

3 

4 

5 

6 

Days 

31 

28;  29 

31 

30 

31 

30 

Minutes 

2 
5 
10 
15 
20 
30 

Hours 

744 
1416;  1440 
2160;  2184 
2880;  2904 
3624;  3648 
4344;  4368 

7 

8 

9 

10 

11 

12 

Days 

31 
31 
30 
31 
30 
31 

Minutes 

60 
120 
240 
360 
720 
1440 

Hours 

5088;  5112 
5832;  5856 
6552;  6576 
7296;  7320 
8016;  8040 
8760;  8784 

Input  Data 

The  input  data  are  read  from  standard  80-column  punchcards  and  transferred  to  magnetic 
tape  by  an  IBM  1401  data  processing  machine  for  subsequent  reduction  by  the  IBM  7040  com- 
puter. The  input  consists  of  (1)  basic  data  cards  and  (2)  a  trailer  card  to  terminate  processing. 

A  sample  storm  event  is  shown  in  figure  Al  to  illustrate  data  preparation.  The  coordinate 
points,  which  are  indicated  by  the  tic  marks,  are  tabulated  on  the  precipitation  code  sheet  il- 
lustrated in  table  A 2.  These  data  may  be  key-punched  from  this  code  sheet  with  each  data  field 
punched  in  the  position  indicated  under  the  respective  column  headings. 
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TABLE   A2  .    --   Code    sheet    for   recording   precipitation   data    (input    for    program  A) 
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Checked    by. 


Data  Card 

The  following  shows  the  card  format  for  the  basic  input  data  card: 


3-4 


9-10 


11-14 


15-16 


17-18 


HR 


AMIN 


GH 


KUPDAT 


KSEQ 


19-20 


X 

XX 

XX 

XXXX 

XX 

XX 

XX 

LTYPRE 
21-22 

NEND 
31-32 

IGAGE 
41-44 

IWID 
73-75 

MONTH 
76-80 

NDAY 

NYEAR 

XX. 

XX. 

XX.XX 

XXX 

XXXXX 

Decimal  points  are  not  punched.  The  only  requirement  is  that  all  data  must  be  right  justified 
in  their  respective  data  fields.  Appendix  list  A2  gives  a  detailed  description  of  the  variable 
names.  NEND  is  always  zero  or  left  blank  in  the  basic  data  card. 

Trailer  Cards 

The  following  information  is  required  in  the  trailer  card.  The  card  image  is  identical  to  the 
basic  data  card. 


3-4 

9-10 

11-14 

15-16 

17-18 

19-20 

73-75 

XX 

XX 

XXXX 

XX 

XX 

XX 

XXX 

NEND 

76-80 

XXXXX 

KSEQ 

NEND 

IGAGE 

IWID 

MONTH 

NDAY 

NYEAR 

KUPDAT 

KSEQ 


IGAGE 


IWID 


MONTH 


NDAY 


NYEAR 


KUPDAT 


9  for  intermediate  rain  gage  station. 
99  for  last  rain  gage  station. 

Same  as  on  last  basic  data  card. 

Same  as  on  last  basic  data  card. 

13. 

32. 

Same  as  on  last  basic  data  card. 

Same  as  on  last  basic  data  card. 

Sequence  number  (one  greater  than  last  basic  data  card). 


Special  Codes 


The  following  special  coding  is  required: 

1.  An  identification  code  designating  the  type  of  precipitation.  This  coding  is  required  for 
program  D,  which  summarizes  the  data  for  the  U.S.  Department  of  Agriculture  Miscellaneous 
Publication,  "Hydrologic  Data  for  Experimental  Agricultural  Watersheds  in  the  United  States." 

2.  An  identification  code  that  will  allow  easy  address  of  any  line  of  data  (magnetic  tape)  so 
that  corrections,  additions,  or  deletions  can  be  readily  made  in  the  input  tape  or  the  output 
storage  tape. 


TABLE  A3. — Type  of  precipitation  codes  required  for  processing  precipitation  data 


Type  of  precipitation 


Rainfall 

Snow 

Rain  and  snow- 


Code 


Blank 
S 
N 


Type  of  precipitation 


Code 


Sleet L 

Hail -- H 

Mixed  precipitation  (rain,  snow,  sleet)  -  -  M 


TABLE  A4. — Identification  codes  to  allow  for  corrections,  additions, 
or  deletions  to  magnetic  tapes  (input/output  data  tapes) 


Location 


Moorefield,  W.  Va. 

Do- 

Do 

Thorne  Creek,  Va. 

Do 

Do 

Crab  Creek,  Va. 

Do 

Do 

Do 

Do 

Brush  Creek,  Va. 

Do - 

Powells  Creek,  Va. 

Do 

Little  Winns  Creek,  Va. 

Do-- 

Do 

Rocky  Run  Branch,  Va. 
Do 

Pony  Mountain  Branch,  Va. 
Do 

Chub  Run,  Va. 

Do- 

Do 

Fosters  Creek,  Va. 

Do 

Chestnut  Branch,  Va. 

Do 

Do 


Rain  gage 


R-l(A) 
R-2(B) 
R-3(C) 

R-l 
R-2 
R-3 

R-l 
R-2 

R-3 
R-4 
R-5-12 

R-l 
R-2 

R-l 
R-2 

R-l 
R-2 
R-3 

R-l 
R-2 

R-l 
R-2 

R-l 
R-2 
R-3 

R-l 
R-2 

R-l 
R-2 
R-3 


Update  identification  code 
(KUPDAT) 


P01 
P02 
P03 

P04 
P05 
P06 

P07 

P08 
P09 
P10 
Pll-Pli 

P19 
P20 

P21 
P22 

P23 
P24 
P25 

P26 
P27 

P28 
P29 

P30 
P31 
P32 

P33 
P34 

P35 
P36 
P37 


Rain  gage  stations  have  not  been  installed. 


Table  A3  illustrates  the  coding  required  under  item  1  above.  Table  A4  gives  the  coding 
scheme  used  for  updating  magnetic  tapes  at  Blacksburg,  Va.  Note  that  the  selection  of  KUPDAT 
is  arbitrary.  The  P  represents  precipitation.  The  next  two  numeric  digits  are  simply  sequential 
numbers  that  have  been  arbitrarily  assigned  to  the  rain  gages  at  Blacksburg. 

Order  of  Input 

All  input  cards  must  be  stacked  for  processing  as  follows: 

1.  Cards  that  may  be  required  by  the  computer  residence. 

2.  Objective  deck. 

3.  Basic  data  cards  (one  station  record). 

4.  Trailer  card. 

5.  Repeat  steps  3  and  4  for  additional  records. 

An  example  of  the  order  of  input  for  the  IBM  7040/1401  installation  at  Virginia  Polytechnic 
Institute,  Blacksburg,  Va.,  is  given  in  figure  A2. 


—      SIBSYS    CARD 
TRALLER   CARD 


PRECIPITATION    DATA     CONE    STATION    RECORD) 


SENTRY   CARD 


BINARY  DECK  (CROC RAM) 


NOTE:   Tho  $  indicates  cards 
spi-citLvd  by  Che 


SIBJOB  CARD 
$J0B  CARD 


Figure  A2. — Schematic  diagram  illustrating  the  card  stacking  order  for  the  input  data  required  by  program 
A.  The  computer  residence  cards  are  those  required  by  the  IBM  7040/1401  installation  at  Virginia  Poly- 
technic Institute,  Blacksburg,  Va. 


Output  Data 

The  output  is  placed  on  magnetic  tape  by  utility  units  S.SUOO  for  permanent  storage  and 
S.SU06  for  listing  and  temporary  storage.  The  data  from  S.SU06  contains  page  numbers,  column 
identification,  and  basic  output  data,  which  will  result  in  the  format  illustrated  by  table  A5  when 
listed  by  the  IBM  1401.  When  the  permanent  storage  tape  is  listed,  the  result  is  the  format  given 
in  table  A6.  These  two  tables  are  an  abbreviated  display  of  the  output  for  one  year's  data  collected 
at  the  R-2  rain  gage,  which  is  located  on  the  Pony  Mountain  Branch  watershed.  Note  that  both 
tapes  contain  the  same  basic  data  and  the  same  sequence  number.  Also  note  that  each  line  of 
data  on  the  permanent  storage  tape  contains  a  value  for  KUPDAT.  The  importance  of  KUPDAT 
and  the  sequence  number  will  become  evident  when  programs  D  and  E  have  been  studied. 

Each  output  tape  includes  the  following  output  data  summaries: 

1.  One  line  of  data  for  each  input  card. 

2.  Two  lines  of  data  for  the  maximum  intensities  for  selected  time  intervals  (IMT)  for 
storm  events  ^0.25  inch. 

3.  One  line  of  data  for  each  monthly  summary. 

4.  One  line  of  data  for  the  yearly  summary. 

5.  Two  lines  of  data  for  the  maximum  intensities,  for  the  same  time  intervals  listed  in 
item  2  above,  for  the  period  of  record  (normally  1  year). 

6.  End  of  record  code. 

Each  different  output  summary  has  a  unique  code  (KODE)  except  the  error  output  as 
described  on  page  12.  The  following  information  is  contained  in  each  output  code.  The  format  for 
S.SU06  is  listed  first,  followed  by  the  format  for  S.SUOO  (storage  tape).  Note  that  the  information 
contained  in  each  format  illustration  is  identified  by,  reading  from  top  to  bottom,  (1)  print 
position  or  card  column,  whichever  is  applicable,  (2)  data  format  specification,  and  (3)  the 
Fortran  variable  name. 


UTILITY  UNIT  S.SU06  Output  Format  (For  listing  and  temporary  storage) 

Note   that  the  numbers  refer  to  print  position  on  the  IBM  1401  which  prints  10  characters 
per  inch,  with  the  extreme  left  position  designated  as  No.  1. 


KODE  =  0  (line  of  basic  data).-- 
2-7  11-12  16-19 


20-24 


25-28 


29-31 


42 


+XXXXX 


XX 


xxxx 


+  XXXX 


+XXX 


+  XX 


X 


NUM 


IGAGE 


IWID 


MONTH 


NDAY 


NY  EAR 


LTYPRE 


43-54 


58-68 


69-79 


80-90 


91-102 


+  XXXXXX.XXXX        +XXXXX.XXXX         +XXXXX.XXXX         +  XXXXX.XXXX         +  XXXXXX.XXXX 


HR 


TI 


AI 


ACP 


STAC 


103-114 


115-124 


125-129 


+  XXXXXX.XXXX   +  XXXX. XXXX 


+  XXXX 


DAC 


AM  AC 


KODE 


TABLE  A5. 


1965   PRECIPITATION  OUTPUT  IN  ABBREVIATED  FORM  FOR  R-2   RAIN  GAGE, 
PONY  MOUNTAIN  BRANCH  WATERSHED,    CULPEPER,    VIRGINIA.      OUTPUT 
FORMAT  FOR  IBM   1401  LISTING   ONLY    (S.SU06) r_^_ 

RAINFALL  TABULATIONS'  WATERSHED  ENGINEERING'BLACKSBURG.VA. 


SEO. 
NUMBER 


GAGE 
NO. 


WATSHD 

no.   mo. 


DATE 
DAY  YK 


STORM  TYPE  TIKE  OF  DAY 
NO.   PREC     HOURS 


TIME  INTERVAL 
IN  HOURS 


INTENSITY 
( IN/HR) 


ACCUM. 
PER  TIME 


STORM  ACCUM. 
(INCHES) 


D   ACCUM. 
(INCHES) 


MON  ACCUM  COM 
(INCHES! 


1 

2 

02 
02 

1312 
1312 

1  65 
1  65 

13.0000 
14.5000 

13.0000 
1.5000 

0.0000 

0.0133 

0.0000 
0.0200 

0.0000 
0.0200 

0.0000 
0.0200 

0.0000 
0.0200 

0 
0 

3 
4 

02 
02 

1312 
1312 

1   6  3 
1  63 

15.7333 

16.5000 

1.2333 

0.7667 

0.0405 
0.0652 

0.0500 
0.0500 

0.0700 
0.1200 

0.0700 
0.1200 

0.0700 
0.1200 

0 
0 

5 
6 

02 
02 

1312 
1312 

1  65 
1  65 

18.0000 
20.5000 

1.5000 
2.5000 

0.0400 
0.0080 

0.0600 
0.0200 

0.1800 
0.2000 

0.1800 

0.2000 

0.1800 
0.2000 

0 
0 

7 

8 

02 

02 

1312 
1312 

1  65 

1  65 

21.5000 
22.1667 

1.0000 
0.6667 

0.0100 
0.0600 

0.0100 
0.0400 

0.2100 
0.2500 

0.2100 
0.2500 

0.2100 
0.2500 

0 
0 

9 

10 

02 

02 

1312 
1312 

1   65 

1  65     1 

22.5000 

0.3333 

0.1200 

0.1200 
0.1200 

0.0400 
0.1200 

0.2900 
0.1200 

0.2900 
0.1200 

0.2900 
0.1000 

0 
9 

11 
12 

02 
02 

1312 
1312 

1  65     1 
1  65 

23.5000 

0.0800 
1.0000 

0.0500 

0.0000 

0.0417 
0.0000 

0.0313 
0.0000 

0.0000 
0.2900 

0.0000 
0.2900 

9 

0 

13 
14 

02 

02 

1312 
1312 

1  65 

2  65 

24.0000 
4.0000 

o.sooo 

4.0000 

0.0200 
0.0200 

0.0100 

0.08X10 

0.0100 
0.0900 

0.3000 
0.0800 

0.3000 

0. 3800 

0 
0 

15 

16 

02 

02 

1312 
1312 

2  65 

2  65 

5.8333 

6.5000 

1.8333 

0.6667 

0.0000 
0.0300 

0.0000 
0.0200 

0.0000 
0.0200 

0.0800 
0.1000 

0.3800 
0.4000 

0 

0 

17 

18 

02 
02 

1312 
1312 

7  65 
7  65 

21.3333 

24.0000 

134.8333 
2.6667 

0.0000 
0.0712 

0.0000 
0.1900 

0.0000 
0.1900 

0.0000 

0.1900 

0.4506 
0.5900 

0 
0 

19 

20 

02 
02 

1312 
1312 

8  65 

8  65     2 

1.5000 

1.5000 
0.0713 

0.0533 
0.0713 

0.0800 
0.0713 

0.2700 
0.0713 

0.0800 
0.0713 

0.6700 
0.0713 

0 
9 

21 

22 

02 
02 

1312 
1312 

8  65     2 
8  65 

2.5000 

0.0713 
1.0000 

0.0713 
0.0000 

0.0653 
0.0000 

0.0000 
0.0000 

0.0000 
0.0800 

0.0000 
0.6700 

9 
0 

23 

24 

02 

02 

1312 
1312 

8  65 

9  65 

3.5000 

13.0000 

1.0000 
33.5000 

0.0200 
0.0000 

0.0200 

0.0000 

0.0200 
0.0000 

0.1000 

0.0000 

0.6900 
0.6900 

0 
0 

551 
552 

02 
02 

1312 
1312 

8 
8 

23  65 
23  65 

13.0000 
13.3333 

27.5000 
0.3333 

0.0000 
0.6300 

0.0000 
0.2100 

0.0000 
0.2100 

0.0000 
0.2100 

1.7900 

2.0000 

0 
0 

55  3 
554 

02 
02 

1312 
1312 

8 
8 

25  65 
25  65 

19.5000 
19.5333 

54.1667 
0.0333 

0.0000 
2.1005 

0.0000 
0.0700 

0.0000 
0.0700 

0.0000 
0.0700 

2.0000 
2.0700 

0 

0 

555 
556 

02 
02 

1312 
1312 

8 

8 

25  65 
25  65 

19.5833 
19.6167 

0.0500 
0.0333 

0.8002 
1.8004 

0.0400 
0.0600 

0.1100 

0. 1 700 

0.1100 
0.1700 

2.1100 
2.1700 

0 
0 

557 
558 


02 
02 


1312 
1312 


25  65 
25  65 


19.7500 
19.9667 


0.1334 
.2166 


0.8248 
.3232 


0.1100 
0.0700 


0.2800 
0.3500 


0.2800 
0.3500 


2.2800 
2.3500 


618 
619 

02 
02 

1312 
1312 

9 
9 

16  65 
16  65 

18.0833 
19.3333 

83.7500 
1.2500 

0.0000 
0.1200 

0.0000 

0.1500 

0.0000 

0.1500 

0.0000 
0.1500 

1.7300 
1.8800 

0 

620 
621 

02 
02 

1312 
1312 

9 

9 

24  65 
24  65 

5.1167 

5.5000 
13.7500 
13.8167 

177.  7833 
0.3834 

0.0000 
0.4174 

0.0000 
0.1600 

0.0000 
0.1600 

0.0000 
0.1600 

1.8800 
2.0400 

0 
0 

622 
62  3 

02 
02 

1312 
1312 

9 
9 

24  65 

24  65 

8.2500 
0.0667 

0.0000 
1.0503 

0.0(500 
0.0700 

0.0000 
0.0700 

0.1600 
0.2300 

2.0400 
2.1100 

s 

0 

624 
625 

02 

02 

1312 
1312 

9 
9 

24  65 

24  65 

13.8500 
13.9167 
13.9833 
14.0833 
14.i000 
14.1833 

0.0333 
0.0667 
0.0667 
0.1000 
0.0167 
0.0833 

3.3008 
1.0503 
1.5r004 
0.0000 
"9.0022 
1.5604 

0.1100 
0.0700 

e.iooo 

0.0000 
0.1500 

0.1300 

0.1800 
0.2500 

0.3400 
0.4100 

2.2200 
2.2900 

0 
0 

626 

o2  7 

02 
02 
02 
02 

1312 
1312 
1312 

1312 

9 
9 

•l 
9 

24  65 
24  65 
24  65 
24  65 

0.3"5W 
0.3500 

0.5100 
0.5100 

2.3900 

2.3900 

0 
0 

628 
629 

0.5000 
0.6300 

0.6600 
0.7900 

2.5400 
2.6700 

0 
0 

630 
631 

02 
02 

1312 
1312 

9 
9 

24  65 
24  65 

14.2167 
14.2667 
14.3167"" 

15.2000 

0.0333 
0.0500 

3.6009 
1.3986 

0.1200 
0.0700 

0.7500 
0.8200 

0.9100 
0.9800 

2.7900 
2.8600 

0 
0 

632 

633 

02 
02 

1312 
1312 

9 
9 

24  65 
24  65 

o.orao" 

0.8833 

2.200T 
0.0113 

0.1100 
0.0100 

0.9J00 
0.9400 

1.0900 
1.1000 

2.9700 
2.9800 

0 
0 

634 
635 

02 
02 

1312 
1312 

9 
9 

24  65 

24  65 

15.4000 
15.7333 

0.2000 
0.3333 

0.1500 
0.0900 

0.0300 

0.0300 

0.9700 
1.0000 

1.1300 
1.1600 

3.0100 
3.0400 

0 

0 

636 
637 

02 
02 

1312 
1312 

9 
9 

2  4  6  5 
24  65 

15.9167 

15.5000 

0.1833 
0.5834 

0.0545 
0.0171 

0.0100 

0.0100 

1.0100 
1.0200 

1.1700 
1.1800 

3.0500 
3.0600 

0 
0 

638 
639 
640 

02 

02 
02 

1312 
1312 
1312 

9 
9 

9 

24  65 

24  65 
24  65 

16.7000 
16.9500 
17.4667 
18.0833 
18.8333 

0.2000 
0.2500 
0.5167 
0.6167 
0.7500 

0.1500 
6.0400 
0.0194 
0.0649 
0.0533 

0.0300 
0.0100 
0.0100 
0.0400 
0.0400 

1.0500 
1.0600 
1.0700 
1.1100 
1.1500 

1.2100 
1.2200 
1.2300 

3.0900 
3.1000 
3.1100 

0 
0 
0 

641 
642 

02 
02 

1312 

1312 

9 
9 

24  6  j 
24  65 

1.2700 
1.3100 

3. 1500 
3.1900 

0 
0 

643 
644 

02 
02 
02 
02 

1312 
1312 
1312 
1312 

9 

9 

9 

10 

24  65    29 
24  65    29 
65 

1   65 

1.5000 
5.8333 

10.0000 

5.2800 
0.9349 
24.4833 
150.6667 
4.3333 
4.1667 

3.0480 
0.5005 

0.0000 

0.0277 
0.0000 

2.6800 
0^2721^ 

0.0000 
0.1200 
0.0000 

2.3208 
0.0000 

0.0000 
0.1200 
0.0000 

1.7434 
0.0000 

1.7200 
0.0000 

9 

9 

646 

0.0000 

3.1900 
0.0000 

6 
0 

647 

648 

02 
02 

1312 
1312 

10 

10 

1  65 

1  65 

0.1200 
0.1200 

0.1200 
0.1200 

0 

0 

713 

02 

1312 

714 
715 

02 

02 

1312 
1312 

716 
717 

02 
02 

1312 
1312 

718 
719 


720 
721 


722 
723 


724 

725 
726 
727 


27  65 

27  65 

65 


7.9167 

8.5000 


118.9166 

0.5834 

22.1667 


o.oooo 

0.0343 


0.0000 
0.0200 


02 

02" 
02 


1312 
1312 
1312 
1312 


12  6  65 
12  6  6j 
12   11  "65 

_12 11  65 

12  13  65 
12   13  65 


8.0000 
9.0000 
3.5000 
4.0000 
0.5000 
5.0000 


215.5000 
1.0000 

114.5000" 

0.5000 

44. 5  000 

4.5000 


_°2_ 
02 
02 


1312 
1312 
1312 
1312 
1312 
1312 


12 
12 
12 
_12 
12 
12 


20  65 

20  65 

21  65 
21  65 
21  65 
25  65 


22.5000 

24.0000 

1.0000 

2.0000 
3.0000 
5.7500 


185.5000 
1.5000 
1.0000" 

I. 0000 

1.0000 

98.7500 


728 
729 


1312 
1312 


730 
731 


02 
02 


1312 
1312 


12   25  65 
12   25  65 
12   25  65" 
12      65_ 
6j 


8.0000 
12.5000 
13.2500 


2.2500 
4.5000 
0.7500 
12^5000 
405.6670 


0.0000 
0.0100 
0.0000 
0.0200 
0.0000 
0.0400 


o.oooo 

0.0200 


0.6800 
0.6S00 


0.0000 
0.0100 
~"0."0007j 
0.0100 
0.0000 
0.1800 


0.0000 
0.0100 

O.OOOO 


0.0000 
0.0100 
0.0100 


0.0000 
0.1800 


0.0200 
0.2000 


0.0000 

0.0067 

0,0100  " 

0.0000 

0.0100 

0.0000 

0.0222 

0.0000 

0.2267~ 


0.0000 

0.0100 
0.0100 
0.0000 


0.0100 
0.0000 


0.0000 
0.0100 
0.0200 
0.0000 
0.0100 
0.0000 


0.0000 
0.0100 


0.2000 
U.2100 


0.0100 
0.0100 
0.0200 

0.0000 


0.2200 
0.2200 


0.2300 
0.2300 


0.0500 
0.0000 


0.1700 


0.0500 
0.0000 
""0.1700 


0.0500 
0.0500 
0.2200 


0.2800 
0.2800 


0.4500 
0.4500 


28.eloo 


733 

7  34 


MAXIHUH  INTENSITY  Fl.K  Yt  AR  (  2  ,  5  ■  1  0.  15  ,  20.  30M) 
MAXIMUM  INTENSITY  _FuR  YbARl 1 , 2, 4, 6, 12, 24HRS ) 

999   WATERSHED  IDENT IF ICATiON" FOR  UPDATING  STORAGE  TAPE 


5.2800 
0.9349 


3.3600 
0.5005 


2.6800 
0.2857 


2.3208 
0.2661 


1.7434 
0.2217 


1.7200 
0.0000 


TABLE   A6 


1965    PRECIPITATION   OUTPUT  IN  ABBREVIATED   FORM  FOR  R-2   RAIN  GAGE, 
PONY  MOUNTAIN  BRANCH  WATERSHED,    CULPEPER,    VIRGINIA.      OUTPUT 
FORMAT   FOR  PERMANENT  STORAGE    (S .SUOO) 


T      5    V    J, 


t 


_    9 




1312  02 
1312  02 
1312  02 
131?  u? 

1 

1 
1 

1 

I  65 
1  65 
1  65 
1  65 

13.0000 
14.5000 
15.7333 
16.5000 

13.0000 
1.5000 
1.2333 
0.7667 

0.0000 
0.0133 
0.0405 
0.0652 

0.0000 
0.0200 
0.0500 
0.0500 

0.0000 
0.0200 
0.0700 
0.1200 

0.0000 
0.0200 
0.0700 
0.1200 

0.0000 
0.0200 
0.0700 
0.1200 

0 
0 
0 
0 

P29 
P29 
P29 

P29 

1 
2 

3 
4 

1312  02 
1312  li2 

1 
1 

1  65 
1  65 

16.0000 
20,5000 

1.5000 
2.5000 
1.0000 
0.6*67 

0.0400 
0.0080 
0.0100 
0,0600 
0.1200 
0.1200 

0.0600 
0.0200 

0.0100 
0.0*00 
0.0400 
0.1200 

0. 1800 
0.2000 
0.2100 
0.2500 
0.2900 
0.1200 

0.1800 

0.2000 
0.2100 
0.2500 
0.2900 
0.1200 

0.1800 
0.2pOO 
0.2100 
0.2500 
0.2900 
0.1000 

0 
0 
0 
0 
0 
9 

P29 
P29 
P29 
P29 
P29 
P29 

5 
6 
7 
8 
9 
10 

1312  02 
1312  02 

1 
1 

1  65 
J.  £5 

21.5000 

„:,  1667 

1312  02 
1312  u? 

1 

1 

1  65 

1  65 

22.5000 

1 

0.3333 

0.1200 

1312  02 

1 
1 

1  65 

1  65 

1 

23.SCO0 

0.0800 
1.0000 

0.0500 

o.oooc 

0.0417 

0.0  0  00 

0.0313 

0.0000 

0.0000 
0,2900 
0.3000 
0.0800 

0.0000 
0,2900 
0.3000 
0.3800 
0.3800 
0.4000 

9 

0 

P29 
P29 
P29 
P29 
P29 
P29 

11 

12 
13 
14 
15 
16 

1312  02 

1312  .2 

1 
1 

1  65 
7  65 

24.0000 

4,8888 

0.5000 
4.QO0Q 

0.0200 
0.O2OO 

0.0100 
0,0800 

0.0100 
0,0900 

0 
0 
0 
0 

1312  02 
131?  02 

1 

1 

2  65 
2  65 

5.8333 

6.5000 

1.8333 
0.6667 

0.0000 
0.0300 

0.0000 

0.0200 

0.0000 
0.0200 

0.0800 
0.1000 

1312  02 
1312  42 
1312  02 

1312  02 

1 
1 
1 
1 
1 
1 

7  65 
7  65 

21.3333 
24_«0000 

134.8333 

2.6667 

0.0000 
0.0712 
0.0533 
0.0713 

0.0000 
0.1900 
0.0800 
0.O713 

0.0000 
0.1900 
0.2700 
0.0713 

0.0000 
0.1900 
0.0800 
0.0713 
0.0000 
0.0800 

0.4000 
0.5900 
0.6700 
0.0713 
0.0000 
0.6700 

0 
0 
0 
9 
9 
0 
0 
0 

P29 
P29 
P29 
P29 
P29 
P29 
P29 
P29 

17 

18 
19 
20 
21 
22 
23 
24 

8  65 
_8_  65 

1.5000 

2 

1.5000 
0.0713 

1312  02 
131?  0? 

8  65 

8  65 

2 
?.5000 

0.0713 
1.0000 

0.0713 
0.0000 

0.0653 
0.0000 

0.0000 
0.0000 

1312  02   1 
131?  n?   1 

8  65 

9  A5 

3.5000 
13.0000 

1.0000 
33.5000 

0.0200 
0.0000 

0.0200 
O.MOO 

0.0200 

0,0000 

0.1000 
0,0000 

0.6900 
0.6900 

1312  02 
131?  0? 

8  23 
8  23 
8  25 
8  25 
8  25 

a  ?5 

65 
65 
65 
65 
65 
65 

13.0000 
13.3333 
19.5000 
19.5333 
19.5833 
19.6167 

27.5000 
0.3333 

54.1667 
0.0333 
0.0500 
(1.0333 

0.0000 
0.6300 
0.0000 
2.1005 
0.8002 
1.80(14 

0.0000 
0.2100 
0.0000 

.CICL 
O.O400 
0.06(1(1 

0.0000 
0.2100 
0.0000 
0*0700 
0.1100 
0.1700 

0.0000 
0.2100 
0.0000 
0.0  7  00 
0.1100 
0.1700 

1.7900 
2.0000 
2.0000 
2.0700 
2.1100 
2.1700 

0 
0 
0 
0 
0 
0 

P29 

P29 
P29 
P29 
P29 

P29 

551 

552 

1312  02 
111?  n? 

553 
554 

1312  02 
131?  n? 

555 
556 

1312  02 
1312  u2 

8  25 
8  25 

65 
65 

19.7500 
19.9667 

0.1334 
0.2166 

0.8248 
0.3232 

0.1100 
0.Q700 

0.2800 
0.3500 

0.2B00 
0.3500 

2.2800 
2.3500 

0 
0 

P29 
P29 

557 
558 

1312 

02 

9 

16 

65 

18.0833 

83.7500 

0.0000 

0.0000 

0.0000 

0.0000 

1.7300 

0 

P29 

618 

131  ? 

D? 

9 

lfi 

ft1. 

19.3333 

1.7500 

0. 170(1 

0.1500 

0.1500 

0.1500 
0.0000 

1.8800 

0 

P29 

619 

1312 

02 

9 

24 

65 

5.1167 

177.7833 

0.0000 

0.0000 

0.0000 

1.8800 

0 

P29 

620 

131? 

02 

9 

24 

65 

5.5000 

Q.3834 

0.4174 

0.1600 

0.1600 

0.1600 

2.0400 

0 

P29 

621 

1312 

02 

9 

24 

65 

13.7500 

8.2500 

0.0000 

0.0000 

o.oooo 

0.1600 

2.0400 

0 

P29 

622 

131? 

U? 

9 

74 

6S 

13.A167 

Q.Q667 

1.0503 
3.3008 

0.070C 
0.1100 

0.G70C 
0.1800 

0.2300 
0.3400 

2.1100 
2.2200 

0 
0 

P29 
P29 

623 

1312 

02 

9 

24 

65 

13.8500 

0.0333 

624 

131? 

ft? 

9 

?4 

h^ 

13.9167 

0.0667 

1.0503 

0.0700 

0.7500 

0.4100 

625 

1312 

02 

9 

24 

65 

13.9833 

0.0667 

1.5004 

0.1000 

0. 3500 

0.5100 

2.3900 

0 

P29 

626 

1312 

02 

9 

24 

65 

14.0833 

0.1000 

o.oooc 

0.0000 

0.3500 

0.5100 

2.3900 

0 

P29 

627 

1312 

02 

9 

24 

65 

14.1000 

0.0167 

9.0022 

0.1500 

0.5000 

0.6600 

2.5400 

0 

P29 

628 

1312 

0? 

9 
9 

24 
24 

65 
65 

14.1833 
14.2167 

0.0633 
0.0333 

1.5604 
3.6009 

0.1300 
0.1200 

0.6300 
0.7500 

0.7900 
0.9100 

2.6700 
2.7900 

0 

0 

P29 

P29 

629 

1312 

02 

630 

131? 

? 

9 

74 

65 

14.7667 

0.0500 

1.3986 

0.0700 

0.B200 

0.9800 

2.8600 

0 

P29 

P29 

631 

1112 

02 

9 

24 

65 

14.3167 

0.0500 

2.2005 

0.1100 

0.9300 

1.0900 

2.9700 

0 

632 

1312 

02 

9 

24 

65 

15.2000 

0.8833 

0.0113 

0.Q1Q0 

0.9400 

1.1Q00 

2.9800 

0 

P29 

633 

1312 

02 

9 

24 

65 

15.4000 

0.2000 

0.1500 

0.0300 

0.9700 

1.1300 

3.0100 

0 

P29 

634 

131? 

n? 

9 
9 

24 
24 

65 
65 

15.7333 
15.9167 

0.3333 
0.1833 

0.0900 
0.0545 

0.0300 
0.0100 

1.0000 
1.0100 

1.1600 
1.1700 

3.0400 
3.0500 

0 
0 

P29 
P29 

635 

1312 

02 

636 

131? 

H? 

9 

74 

6s! 

16.5000 

0.5834 

0.0171 

0.0100 

1.0700 

1.1 800 

3.0600 

0 

P29 

637 

1312 

o? 

9 

24 

65 

16. 700( 

0.2000 

0.1500 

0.0300 

1.0500 

1.2100 

3.0900 

0 

P29 

638 

1312 

02 

9 

24 

65 

16.9500 

0.2500 

0.04Q0 

0.0100 

1.0600 

1.2200 

3.1000 

0 

P29 

639 

1312 

02 

9 

24 

65 

17.4667 

0.5167 

0.0194 

0.0100 

1.0700 

1.2300 

3.1100 

0 

P29 

640 

1312 

02 

9 

24 

65 

18.0833 

0.6167 

0.0649 

0.0400 

1.1100 

1.2700 

3.1500 

0 

P29 

641 

1312 

u2 

9 

24 

65 

18.8333 

0.7500 

0.0533 

0.0400 

1.1500 

1.3100 

3.1900 

0 

P29 

642 

1312 

.:? 

9 

?4 

65 

29 

5.2800 

3.0480 

2.6800 

2.3208 

1.7434 

1.7200 

9 

P29 

643 

1312 

02 

9 

74 

65 

29 

0.9349 

0.5005 

0.7721 

0.0000 

0.0000 

0.0000 

9 

P29 

644 

1312 

02 

9 

65 

24.4833 

3.1900 

6 

P29 

645 

1312 

02 

10 

1 

65 

1.5000 

150.6667 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0 

P29 

646 

1312 

02 

II 

1 

65 

5.8333 

4.3333 

0.0277 

0.1200 

0.1200 

0.1200 

0.1200 

0 

P29 

647 

1312 

02 

K 

1 

65 

10.0000 

4. 1667 

0.0000 

0.0000 

0.0000 

0.1200 

0.1200 

0 

P29 

648 

1312 

02 

11 

27 

65 

7.9167 

118.9166 

0.0000 

0.0000 

0.0000 

0.0000 

0.6600 

E 

0 

P29 

713 

1312 

o2 

11 

27 

65 

B.5000 

0.5834 

0.0343 

0.0200 

0.0200 

0.0200 

0.6800 

E 

0 

P29 

714 

ft', 

715 

1312 

02 

12 

6 

65 

8.0000 

215.5000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

E 

0 

P29 

716 

1312 

02 

12 

6 

65 

9.0000 

1.0000 

0.0100 

0.0100 

0.0100 

0.0100 

0.0100 

E 

0 

P29 

717 

1312 

02 

12 

11 

65 

3.5000 

114.5000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0100 

E 

0 

P29 

718 

1312 

02 

12 

11 

65 

4.0000 

0.5000 

0.0200 

0.0100 

0.0100 

0.0100 

0.02  00 

E 

0 

P29 

719 

1312 

02 

12 

13 

65 

0.5000 

44.5000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0200 

0 

P29 

720 

111? 

n? 

1? 

13 

65 

5.(100(1 

4.500(1 

0.0400 

0.1800 

Q.1BJ0Q 

0.211011 

n 

P79 

1312 

J? 

12 

20 

65 

22.5000 

185.5000 

0.0000 

0.0000 

0.0000 

0.0000 

0.2000 

0 

P29 

722 

1312 

02 

12 

20 

65 

24.0000 

1.5000 

0.0067 

0.0100 

Q.01QQ 

Q.01Q0 

0.2100 

0 

P29 

723 

1312 

U2 

12 

21 

65 

1.0000 

1.0000 

0.0100 

0.0100 

0.0200 

0.0100 

0.2200 

0 

P29 

724 

1312 

02 

12 

21 

65 

2.0000 

1.0000 

0.0000 

0.0000 

0.0000 

0.0100 

0.2200 

0 

P29 

725 

1312 

0? 

12 

21 

65 

3.0000 

1.0000 

0.0100 

0.0100 

0.0100 

0.0200 

0.2300 

0 

P29 

726 

1317 

n? 

1? 

75. 

6  5 

5.7500 

98.7500 

o.nnoo 

0.0000 

0.0000 

0.0000 

0.7300 

F 

n 

P29 

727 

1312 

0; 

12 

25 

65 

8.0000 

7.7500 

0.0222 

0.0500 

0.0500 

0.0500 

0.2800 

F 

0 

P29 

728 

1312 

02 

12 

25 

65 

12.5000 

4.5000 

0.0000 

0.0000 

0.0000 

0.0500 

0.2800 

E 

0 

P29 

729 

1312 

02 

12 

25 

65 

13.2500 

0.7500 

0.2267 

0.1700 

0.1700 

0.2200 

0.4500 

E 

0 

P29 

730 

1312 
1312 

02 

12 

65 
65 

12.5000 
405.6670 

0.4500 
28.8100 

6 

7 

P29 
P29 

731 
732 

131  ? 

11? 

<i*> 

5.2800 

3.3600 

7.6800 

7.3208 

1.7434 

1.7200 

_3_ 
3 

P29 
P29 

713 

1312 

02 

65 

0.9349 

0.5005 

0.2857 

0.2661 

0.2217 

0.0000 

734 

099 

2 

P29 

735 

rThe   numbers    in   parentheses   refer    to    the   print   position  of   the    respective 
data    fields.      See    section    -    Utility   Unit   S .SUOO  Output   Format    -    for    an 
explanation   of    the    data   contained    in   each   column. 
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KODE  =  2  (end  of  record).— 
2-7  16-19  75-77 


125-129 


+XXXXX 


+  XXX 


XXX 


+  XXXX 


NUM 


NRECD 


KUPDAT 


KODE 


KODE  =  3  (maximum  intensities). — Two  lines  of  data  for  maximum  intensities  for  the  period 
of  record  covered  by  each  set  of  data  processed  (usually  a  complete  year).  Data  format  for 
KODE  =  3  is  the  same  as  for  KODE  =  9,  except  for  print  positions  11-36,  refer  to  lines  733-734 
table  A  5. 

KODE  =    6  (monthly  summary). — 


2-7 

11-12 

16-19 

20-24 

29-31 

58-68 

115-124 

125-129 

+XXXXX 

XX 

XXXX 

+  XXXX 

+  XX 

+XXXXX.XXXX 

+XXXX.XXXX 

+XXXX 

NUM 


IGAGE        IWID        MONTHO       NYEAR 


ACTI 


AMAC 


KODE 


KODE  =  7  (yearly  summary). — 


2-7 

11-12 

16-19 

29-31 

58-68 

115-124 

125-129 

+XXXXX 

XX 

XXXX 

+  XX 

+  XXXXX.XXXX 

+  XXXX.XXXX 

+XXXX 

NUM 


IGAGE 


IWID 


NYEAR 


ACTIYR 


YRAC 


KODE 


KODE    =  9  (maximum  intensity  for  individual  storms). — 
2-7  11-12  16-19  20-24  25-28 


29-31 


32-36 


+XXXXX 

XX 

XXXX 

+  XXXX 

+  XXX 

+XX                   +XXXX 

NUM 
NUMA 

58-68 

IGAGE 
IGAGE 

69-79 

IWID 
IWID 

MONTH 
MONTH 

80-90 

NDAY 
NDAY 

91-102 

NYEAR                  NRO 
NYEAR                  NRO 

103-114 

+  XXXXX.XXXX 

+  XXXXX.XXXX 

+  XXXXX.XXXX 

+  XXXXXXX.XXXX       +XXXXXXX.XXXX 

PI(l) 

PK7) 

115-124 

PI(2) 
PI(8) 

125-129 

PI(3) 
PI(9) 

PI(4) 
PI(10) 

PI(5) 
PI(ll) 

+  XXXXX.XXXX 

+  XXXX 

PI(6) 
PI(12) 

KODE 
KODE 

Note:    There  are  two  lines  of  KODE   =  9  output  for  each  storm  ^  0.25  inch.  The  data  contained 
in  each  are  the  same  except  for  positions  58-124  (S.SU06). 
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Error. — If  a  negative  time  interval  is  encountered  during  processing,  the  numbers  of  the 
two  data  cards  causing  this  error  are  written  on  S.SU06  only,  then  normal  processing  is  con- 
tinued with  the  next  data  card.  The  information  contained  in  the  error  output  is  as  follows: 


11-12 

16-19 

22-24 

26-28 

29-31 

46-57 

XX 

XXXX 

+XX 

+  XX 

+XX 

+XXXXXX.XXXX 

IGAGE 

58-110 


IWID 


MONTH 
112-117 


NDAY 
118-121 


NYEAR 
123-127 


HR 


(See  note  below) 


+XXXXX 


(See  note) 


+XXXXX 


KSEQ 


KSEQO 


Note:  Print  positions  58-110  contain:  (NEGATIVE  OR  ZERO  TIME  INTERVAL  BETWEEN 
CARD  NUMBERS.) 

Print  positions  118-121  contain:    AND. 

UTILITY  UNIT  S.SU00  Output  Format  (Permanent  Storage) 

The  data  are  placed  on  magnetic  tape  for  permanent  storage  in  a  90-column  card  image  as 
indicated  by  the  formats  listed  below.  These  same  numbers  refer  to  print  positions  if  the  data 
are  listed  by  the  IBM  1401  (see  table  A6). 


KODE  =  0  (line  of  basic  data).— 


1-4 

6-7 

8-10 

11-13 

14-16 

17-24 

25-34 

XXXX 

XX 

+  XX 

+XX 

+XX 

+XX.XXXX 

+XXXX.XXXX 

IWID 
35-42 

IGAGE 

43- 

MONTH 
-50 

NDAY 
51-58 

NYEAR 
59-66 

HR 

67-74 

TI 

77 

+  XX.XXXX 

+ XX.  XXXX 

+  XX.XXXX 

+  XX.XXXX 

+XX.XXXX 

X 

AI 


ACP 


STAC 


DAC 


AM  AC 


LTYPRE 


78-80 


83-85 


86-90 


+XX 


XXX 


+  XXXX 


KODE 


KUPDAT 


NUM 


KODE    =  2  (end  of  record).— 
1-4  78-80  83-85 


86-90 


+  XXX 


+XXX 


XXX 


+  XXXX 


NRECD 


KODE 


KUPDAT 


NUM 


KODE  =  3  (maximum  intensities). — Two  lines  of  data  for  maximum  intensities  for  the  period 
of  record  covered  by  each  set  of  data  processed  (usually  a  complete  year).  Data  format  for 
KODE   =  3  is  the  same  as  for  KODE    =  9,  except  storm  number  NRO  (20-24)  is  omitted. 
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KODE  =  6  (monthly  summary). — 
1-4  6-7  8-10  14-16 


25-34 


67-74 


75-80 


xxxx 

XX 

+  XX 

+  XX 

+XXXX.XXXX 

+XX.XXXX 

+XXXXX 

IWID 

IGAGE 

MONTHO 

NYEAR 

ACTI 

AMAC 

KODE 

83-85 

86-90 

XXX 

+  XXXX 

KUPDAT 

NUM 

KODE  =  7  (yearly  summary). — 
1-4  6-7  14-16  25-34 


67-74 


75-80 


83-85 


86-90 


XXXX 


XX 


+  XX 


+XX.XXXX         +XX.XXXX         +XXXXX 


XXX 


+  XXXX 


IWID 


IGAGE 


NYEAR 


ACTIYR 


YRAC 


KODE 


KUPDAT 


NUM 


KODE  =  9  (maximum  intensities  for  individual  storms). — 
1-4  6-7  8-10  11-13  14-16 


20-24 


XXXX 

XX                     +XX 

+  XX 

+XX 

+  XXXX 

IWID 
IWID 

25-34 

IGAGE              MONTH 
IGAGE              MONTH 

35-42                  43-50 

NDAY 
NDAY 

NYEAR 
NYEAR 

51-58 

NRO 

NRO 

59-66 

67-74 

78-80 

+  XXXX.XXXX       +XX.XXXX        +XX.XXXX 

+-XX.XXXX 

+  XX.XXXX 

+  XX.XXXX 

+  XX 

PKD 

PI(7) 

83-85 

PI(2)                   PI(3) 
PI(8)                   PI(9) 

86-90 

PI(4) 

PI(10) 

PI(5) 
PI(ll) 

PI(6) 

PI(12) 

KODE 
KODE 

XXX 

+  XXXX 

KUPDAT 
KUPDAT 

NUM 
NUMA 

Note:    There  are  two  lines  of  KODE  =  9  output  for  each  storm  =±  0.25  inch.  The  data  con- 
tained in  each  are  the  same  except  positions  25-74  (S.SU00). 


PROGRAM  B  (RUNOFF  REDUCTION  PROGRAM) 

Program  B  determines  instantaneous  discharge  rates  from  simultaneous  readings  of  stage 
and  time.  All  computations,  including  pondage  corrections  where  applicable,  flow-duration 
summaries,  and  maximum  volume  search,  are  performed  as  each  stage  and  time  increment  is 
read. 

The  following  summaries  are  made: 

1.  The  runoff  hydrograph  is  numerically  integrated  to  give  runoff  volumes  summarized 
by  day,  month,  and  year. 

2.  Maximum  volumes  are  determined  for  seven  selected  time  intervals. 
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3.  The  maximum  peak  discharge  is  determined  for  the  year. 

4.  Five  flow-duration  summaries  are  determined  for  each  month  and  for  the  year. 

5.  The  data  are  checked  for  negative  time  increments. 

A  listing  of  the  source  program  and  detailed  description  of  the  Fortran  variables  are  given 
in  appendix  lists  Bl  and  B2,  respectively. 


Program  Constants 

Three  storage  areas  are  reserved  for  program  constants  by  specific  programming  routines 
during  the  initiation  phase  of  the  program.  These  storage  areas  are:  M(I),  1  =  1,  12;  MHR(I), 
I  =  1,  12  and  AMHR(I),  1=1,  12.  Table  Bl  gives  specific  values  for  these  constants. 


TABLE  Bl. — Runoff  reduction  program  constants 
[Where  two  values  are  given,  the  second  value  refers  to  leap  year] 


I 

MCI) 

MHR(I) 

AMHR(I) 

I 

M(I) 

MHR(I) 

AMHR(I) 

1 

2 

3 

4 

5 

6 

Days 

31 

28;  29 

31 

30 

31 

30 

Hours 

744 

1416;  1440 
2160;  2184 
2880;  2904 
3624;  3648 
4344;  4368 

Hours 

744 

672;  696 

744 

720 

744 

720 

7 

8 

9 

10 

11 

12 

Days 

31 
31 
30 
31 
30 
31 

Hours 

5088;  5112 
5832;  5856 
6552;  6576 
7296;  7320 
8016;  8040 
8760;  8784 

Hours 

744 
744 
720 
744 
720 
744 

Input 

The  input  data  are  read  from  standard  80-column  punchcards  and  transferred  to  magnetic 
tape  by  an  IBM  1401  data  processing  machine  for  subsequent  reduction  by  the  IBM  7040  computer. 
The  input  consists  of  the  following  cards; 

1.  Basic  constants. 

2.  Parameter  card. 

3.  Rating  and  pondage  tables. 

4.  Basic  data  cards  (stage-time  readings). 

5.  Trailer  card. 

A  typical  runoff  event  is  shown  in  figure  Bl  to  illustrate  data  preparation.  The  coordinate 
points,  which  are  indicated  by  the  tic  marks,  are  tabulated  on  the  runoff  code  sheet  given  in 
table  B2.  A  midnight  coordinate  point  (2400  hours)  must  be  used  for  all  days  during  which  runoff 
occurs.  These  data  may  be  key-punched  from  this  code  sheet  with  each  data  field  punched  in  the 
position  indicated  under  the  respective  column  headings. 

Basic  Constants 

The  following  basic  constants  are  required; 

1.  Flow-duration  limits. 

2.  Time  intervals  for  maximum  volume  search. 

3.  Rating  and  pondage  table  conversion  factors. 
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TABLE  B2.  --  Code  sheet  for  recording  runoff  data  (input  for  program  B) 

Location /o*y  /ll  Be.  Sheet  /  Of L 


s 

a 

I 

z 
o 
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>- 

z 

a. 
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LU 
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z 

Ul 

z 

X 

o 
y- 

z 

a 
be 

o 

Ul 

in 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

,2 

21 

22 

31 

32 

33 

34 

35 

50 

51 

60 

73 

74 

75 

76 

77  J  78 

79 

80 

/ 

3 

y 

/2 

_Q_ 

9 

z 

4 

G 

S 

1 

4 

0 

4 

o 

0 

M. 

/ 

z. 
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7 
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z 
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^L 
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0 

ft 
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I 

P. 

31 

9 

Z 
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Flow  Duration 

Flow  duration  is  obtained  as  a  percentage  of  the  time  that  the  discharge  rate  was  equal 
to  or  exceeded  given  base  rates.  Consequently,  a  range  of  base  rates  is  needed  that  will  best 
reflect  the  watershed  flow-duration  curve.  Different  areas  will  normally  require  a  different 
set  of  values;  however,  values  ranging  from  0.00001  to  0.50000  inch  per  hour  have  been  found 
to  adequately  define  the  flow  duration  curve  for  the  watersheds  being  studied  at  Blacksburg,  Va. 
Twenty-five  rates  may  be  placed  in  five  cards  according  to  the  following  format.  Note  that  there 
will  be  five  cards,  with  five  values  per  card  with  decimal  positions  not  punched. 


1-6 


7-12 


13-18 


19-24 


25-30 


X.XXXXX 


X.XXXXX 


X.XXXXX 


X.XXXXX 


X.XXXXX 


FLOW(I) 


FLOW(I+l) 


FLOW(I+2) 


FLOW(I+3) 


FLOW(I+4) 


Maximum  Volume 

Maximum  volumes  are  determined  for  selected  time  intervals  of  1,  2,  6,  and  12  hours,  and 
1,  2,  and  8  days.  One  card  containing  these  respective  time  intervals  in  minutes  is  required  in 
the  following  format.  Decimals  are  not  punched. 


1-5 

6-10 

11-15 

16-20 

21-25 

26-30 

31-35 

XXXXX. 

XXXXX. 

XXXXX. 

XXXXX. 

XXXXX. 

XXXXX. 

XXXXX. 

VOLM(I)       VOLM(I+l)       VOLM(I+2)        VOLMU+3)        VOLMU+4)        VOLM(I  +  5)        VOLM(I+6) 


Conversion  Factors 

Two  conversion  factors  for  each  watershed  are  required  to  convert  the  basic  rating  and 
pondage  tables  to  the  desired  units.  The  program  has  been  designed  to  load  15  conversion 
factors  for  subsequent  analysis.  Blank  cards  must  be  inserted  for  the  missing  conversion 
factors  when  the  number  of  watersheds  being  analyzed  is  less  than  15.  Since  ID1  is  used  to 
index  RRAT  and  RPOND,  each  blank  card  must  contain  a  two-digit  integer  that  is  greater  than 
zero  but  less  than  or  equal  to  15.  The  same  integer  may  be  used  for  all  blank  cards.  However, 
the  value  chosen  must  not  be  equal  to  any  of  the  values  previously  used  to  index  corresponding 
conversion  factors.  The  conversion  factors  are  punched  according  to  the  following  format. 
Decimals  are  not  punched. 


1-2 


3-12 


13-22 


XX 


.XXXXXXXXXX  .XXXXXXXXXX 


ID1 


RPOND(IDl) 


RRAT(IDl) 


Parameter  Card 

The  parameter  card  contains  program  control  data.  See  input  section  of  appendix  list  B2  for 
a  discussion  of  the  type  of  control  obtained  from  the  coding  of  this  card.  The  required  form  is: 


X 
NBR 


X 


J3 


X 
J4 


X 


J6 


X 


J7 


17 


Rating  Table 

The  rating  table  consists  of  stage-discharge  (coordinates)  that  have  been  selected  from  the 
rating  curve  for  the  record  being  processed  at  intervals  sufficiently  close  to  allow  linear 
interpolations  between  two  stage  readings.  The  maximum  number  of  coordinate  points  that  may 
be  loaded  may  be  varied  by  changing  the  dimension  of  GAGR  and  CFSR.  In  this  program  a 
maximum  of  170  points  may  be  stored.  One  coordinate  point  is  placed  on  each  card.  This 
procedure  may  be  altered  by  changing  the  input  format  in  the  rating  table  load  routine. 


1-4 


11-20 


80 


XX.XX 


XXXX.XXXXXX 


X 


GAGR(I) 


CFSR(I) 


J  END 


Pondage 

The  pondage  table  consists  of  stage-ponded  area  coordinates  selected  at  intervals  suffi- 
ciently close  to  allow  linear  interpolation  for  intermediate  points.  This  program  will  load  a 
maximum  of  50  coordinate  points  for  pondage  corrections.  Additional  capacity  may  be  obtained 
by  increasing  the  dimension  of  GAGP  and  CFSP. 

When  selecting  coordinate  points,  the  first  point  must  be  at  the  datum  plane.  One  coordinate 
point  is  placed  on  each  card  as  follows: 


1-4 


11-15 


80 


XX.XX 


XXX.XX 


X 


GAGP(I) 


CFSP(I) 


J  END 


Basic  Data  Cards 

The  following  shows  the  information  required  and  the  input  data  card  format: 


1-2 

3-4 

5-6 

7-8 

9-10 

11-12 

21-22 

31-34 

35 

XX 

XX 

XX 

XX 

XX 

XX. 

XX. 

XX.XX 

X 

IW 


IDW 


MONTH 


NDAY 


NYEAR 


HR 


AM 


HT 


NEST 


50-51 


XX 


60 


73-75 


X 


XXX 


76-80 


XXXXX 


NEND  NTCH  KUP  KSEQ 

See  input  section  appendix  list  Bl  for  a  description  of  symbols. 

Trailer  Card 

The   trailer  card  contains  code  information  that  will  terminate  the  station  processing  and 
complete  year-end  summaries. 


1-2 

3-4 

5-6 

7-8 

9-10 

50-51 

73-75 

76-80 

XX 

XX 

XX 

XX 

XX 

XX 

XXX 

XXXXX 

IW 


IWD 


MONTH 


NDAY 


NYEAR 


NEND 


KUP 


KSEQ 


Note:    Always    place    a    13    in   columns    5-6   and   a  31  in  columns  7-8.  See  input  section  of 
appendix  list  Bl  for  description  of  the  remaining  symbols. 


Codes 

The  coding  necessary  for  correct  program  execution  is  found  in  the  input  section  of  appendix 
list  B2  and  is  as  follows: 

1.  Parameter  card. 

2.  NEND. 

3.  NEST. 

4.  NTCH. 

5.  KUP. 

Table  B3  gives  KUP  values  being  used  at  Blacksburg,  Va.;  the  selection  of  KUP  for  a 
particular  watershed  is  arbitrary,  except  that  no  two  watersheds  may  have  the  same  KUP 
identification. 


TABLE  B3.--KUP  values,  Blacksburg,  Va. 


Location 


Watershed 

identification 

(IWID) 


KUP 


Location 


Watershed 

identification 

(IWID) 


KUP 


Moorefield,  W.  Va. 

Do 

Do 

Do 

Thorne  Creek,  Va. 
Crab  Creek,  Va.-- 
Brush  Creek,  Va.  - 


6601 
6602 
6604 
6605 
1306 
1307 
1308 


Q01 
Q02 
Q04 
Q05 
Q06 
Q07 
Q08 


Powells  Creek,  Va. 

Little  Winns  Creek,  Va.-- 
Rocky  Run  Branch,  Va.  -- 
Pony  Mountain  Branch,  Va, 

Chub  Run,  Va. 

Fosters  Creek,  Va. 

Chestnut  Branch,  Va. 


1309 
1310 
1311 
1312 
1313 
1314 
1315 


Q09 
Q10 
Qll 
Q12 
Q13 
Q14 
Q15 


Order  of  Input 

Input  cards  are  stacked  in  the  following  order: 

1.  Control  cards  specified  by  computer  residence. 

2.  Object  program. 

3.  Flow-duration  table  (5  cards). 

4.  Time  intervals  for  maximum  volume  search  (1  card). 

5.  Parameter  data  (1  card). 

6.  Conversion  factors  when  required  (15  cards). 

7.  Pondage  table  when  required  (max.  50  cards). 

8.  Rating  table  when  required  (max.  170  cards). 

9.  Basic  data. 

10.  Trailer  card. 

11.  Repeat  steps  5-10  where  appropriate. 

A  typical  stacking  order  for  the  IBM  7040/1401  installation  at  Virginia  Polytechnic  Institute, 
Blacksburg,  Va.,  is  illustrated  in  Figure  B2. 
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SIBSYS   CARD 


TRAILER  CARD 


RATING    TABLE 


PONDAGE   TABLE 


CONVERSION    FACTORS 

—  PARAMETER  CARD 

-  MAXIMUM  VOLUME   TABLE 
FLOW   DURATION  TABLE 


SENTRY  CARD 


BINARY   riECK    (PROGRAM* 


NOTE:   All 


-  $IBJOB  CARD 
SJOB  CARD 


Figure  B2, — Schematic  diagram  illustrating  the  stacking  order  for  the  input  data  required  by  program  B.  The 
computer  residence  cards  are  those  required  by  the  IBM  7040/1401  installation  at  Virginia  Polytechnic  Institute, 
Blacksburg,  Va. 

Output 

The  output  is  placed  on  magnetic  tape  by  utility  units  S.SU00  for  permanent  storage  and 
S.SU06  for  listing  and  temporary  storage.  The  data  from  S.SU06  contain  page  numbers,  column 
identification,  and  basic  output  data,  which  will  result  in  the  format  illustrated  by  tables  B4  and 
B5  when  listed  by  the  IBM  1401.  The  first  page  of  output  (table  B4)  consists  of  the  parameter 
data  used  for  the  reduction  of  the  basic  runoff  data.  This  output  has  no  page  number  and  is  not 
placed  on  the  permanent  storage  tape.  When  the  permanent  storage  tape  is  listed,  the  result  is 
the  format  given  in  table  B6.  As  in  program  A,  note  that  both  listings  contain  the  same  basic 
data  and  corresponding  sequence  numbers. 

Each  output  tape  includes  the  following  output  summaries; 

1.  A  list  of  the  basic  constants  used  for  the  given  analysis  (see  table  B4).  These  data 
precede  all  output. 

2.  One  line  of  data  for  each  input  card. 
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TABLE  B4.  --  PARAMETER  DATA  USED  IN  RUNOFF  REDUCTION  ANALYSES 


RUNOFF  CGMPUTATIONS'WATERShED  ENG [ NEER 1 NG ■ BLACKSBURG , VA. 

BASIC  CCKSTAMS  LSEC  FOR  ANALYSES 

BASE  FLCk  DURATION  R-TES 
O.GCOOl  O.COO10  0.0o020  0. 00050  0.00075 

0.00100  0.00150  0.00200  0.003C0  0.00400 
0.0C5CC  0.00750  O.OiGCC  0.015C0  0.C2000 

0.02SC0  0.03000  0.0^500  0.04000  0.05000 
0.07500  0.10000  0.2DC00  0.4C0CC  0.5C000 

MAXIFUP  VCLUKE  L IKI TllMlaUTES ) 

60.    120.    360.    720.   1440.   2880.  11520. 

PARAFEIER  0A1A 
N8R  =  2  J 


J4=  2  Jo=  2  J7= 


RATING  ANC  PDNCAGE  CoKRECTICN  FACTORS 


-O.OOCOOOOO 
-0.00000000 


0. 1156O000 
0. I01690C0 


.00000000 

.cccoccoo 


-o.ooocoooo 

C. 15692089 


-0.00000000 
0.00001804 


0.103B4712 
0.00032473 


0.00C07010 
O.CCO?46?<) 


0.CC126175 
0.00111057 


0.00030273 
0.00023409 


0.00544412 
0.00067419 


0.00009927 
0.00C64  566 


.C017b63C 
.00517105 


0.00002724 
0.00056627 


.00049023 
.00254825 


0.00C05210 


0.00C93772 


TABLE  B5.    --    1965   RUNOFF  OUTPUT  IN  ABBREVIATED   FORM  FOR  PONY  MOUNTAIN 
BRANCH  WATERSHED,    CULPEPER,    VIRGINIA.      FORMAT  FOR  LISTING 
BY   IBM   1401  ONLY    (S.SU06) 


RUNGFF  CCMPUTATIONS'WATtKSHEO  ENG 1 NE ER 1 NG • BLACKSBURG ,¥A. 

PAGE 

1 

ySHi  ) 

oAie 

net  of 

GAGE  HI 

TIME  [NT 

CUTFLUW  RATE    PUND 

RUNUFF  RATE 

AVG  RO  RATE 

RO  TIME 

ACCUM  OA 

ACCUM  MC 

ACCUM  YR 

SEO. 

NO.   M 
1312 

:  ca 
i 

YR 
65 

CAY 

o.oooc 

1FT.I 
0.11 

IHRS. 1 
0.0000 

1 IN/HR) 
0.0C017 
0. COO  17 
0.COO13 

CORR 

0.00000000 

-C. 00000022 

|  .  ,1  l  '  CI  44 

1 IN/HRI 
0.00017 

( IN/HR) 
0.000172 

INTI IN) 

0.00000 

ROI IN.) 
0.00000 

ROI IN.I 

0.00000 

ROI IN.) 
0.00000 

CODE 
0 

NO. 

1 

1312 
1312 

l 
l 

65 

5  5 

1.3333 

14.0000 

C 

a 

11 
10 

1.3333 

12.6667 

0.00017 
0.00013 

0.000172 
0.000153 

0.0002  ) 

0.00  194 

0.06623 
0.00217 

0. 00023 
0.002  1  7 

0.00023 
0.00217 

0 

0 

2 
3 

1312 
1312 

l 
l 

65 

6  5 

15.6667 
16.6667 

c 
c 

0 

0 

11 
12 
12 
13 

1.6667 

1 .0000 
4.0000 
l.OOCO 

0.00017 
0. 00022 
0.00022' 
0.0C027 
0.000  3  3 
0.00040 

0.00000446 
0.00000281 
0.00C00281 
0.00000613 
6.00001 144 
0.00001473 

0.00018 
0.00022 

0.000155 
0.000196 

0.00026 
0.00020 

0.00243 
0.00263 

0.00  24  3 
0.002  6  3 

0.00243 

0.0026) 

0 
0 

4 
5 

111! 
1112 

l 
i 

6  5 

20.6667 
21 .6667 

0.00022 
O.C0028 

0.000220 
0.066249 

0.00088 
0.00025 

0.00351 

0.00  J  76 

0.00  )5  1 
0.00)  76 

0.00351 
0.00376 

0 
0 

6 

7 

1312 
1312 

l 

i 

o5 

22.2000 
22.6667 

a 
0 

14 

15 

0.5333 
0.4O67 

0.00034 
0.00041 

0.000310 
0.000377 

0.000  1  7 
0.00018 

0.00392 
0.00410 

0.00392 
0.00410 

0.00392 
0.06410 

0 
0 

6 
9 

1312 
1312 

i 
l 

6', 
t>5 

23.0000 
23.5333 

0 
0 
0 

lb 
16 
17 

0.3333 
0.53)3 
0.4667 

" 0.6667 
0.933) 

O.CC047 
0.0C04  7 
0.C6656 

0.CTC056 
0.00047 

0.00000865 
0.00000618 
0.00000622 

-0.00000311 
-0.00000309 

0.00048 
0.00048 

0.000447 
0.000481 

0.00015 
0. 00026 

0.00425 
0.00450 

0.00425 
0.00450 

0.00425 
0.00450 

0 
0 

10 
11 

1312 
1312 

i 
l 

6  5 

6  ) 

24.C000 

0.00056 

0.000521 
0.000198 

0.00024 

0.00475 

0.004 75 

0.00475 

0.00475 
0.00475 

0 

7 

12 
13 

1312 
1312 

2 
2 

b  j 
6  ., 

0.6667 
1.6000 

0 

17 
16 

0.00055 
0. 00047 

0.000559 
0.000512 

0.00037 

0.U004H 

0.66037 
0.00085 

0.00512 
0.00560 

0.00512 

0.0056-: 

0 
0 

14 

1  5 

1312 
1312 

2 
2 

65 
65 

2.1333 
2.6667 

c 

0 

16 
17 
19 

20 
20 

16 

0.5333 
0.5333 
0.6667 
0.5333 
0.4667 
2.6667 

0.C0047 
G.CC056 
0.CC075 
0.COGU6 
0.CC086 
0.00065 

0.00000541 
0.00001415 
0.00C01433 
0.00000555 
-0.00000222 
■  c...;i  l:(;i,4  )>■. 

0.00048 
0.00057 

0.0004  74 
0.000525 

0.00025 
0.00028 

0.66116 
6.60136 

0.00565 
0.00613 

0.00585 

0.0061 i 

0 
0 

If. 
17 

1312 
1312 

2 
2 

65 
65 

3.3333 

3.8667 

0 

c 

0.00077 

0.00087 

"0.00086 

0.00065 

0.000669 

o.oooeie 

0.00045 
";. 00044 

0.00183 
0.00227 

0.00658 
0.00701 

0.00658 
0.00701 

0 
0 

18 
19 

1312 
1312 

2 

2 

65 
6  . 

4.3333 

7.C000 

u 
u 

0.0006  66 
0.000754 

0.00040 
0.00201 

0.00267 
0.00468 

0.00742 
0.00943 

0.06742 
6.06943 

0 
0 

20 
21 

1312 
1312 

2 
2 

65 

8.3333 
9.16o7 

c 
c 

1? 
17 
20 
20 

1.333) 
0.8)33 
2.2333 

2.6000 
3.00C0 

5.6667 

0.00056 
0.CC056 
0.CCG66 
0.00086 
U.C0065 
O.0vO47 

.  .   '  -  < '  1 1 .'  1  8 

O.CCC00390 

0.00000398 

-0.00000197 

-0.00CC0296 

-0.0C0O031B 

0.00056 
0.00056 
0.00067 
0.00086 
O.00C65 
0.CO047 

0.000601 
0.600556 
6.600715 
0.000865 

0.00080 
0.00047 
0.00160 
0. 00225 

0.00548 
0.00595 
0.00754 
0.00979 

0.01023 
0.01069 
0.01229 
0. 01454 

6.01023 
0.01069 
0.01229 
0.61454 

0 
0 
0 
0 

22 
23 

1312 
1312 

2 

2 

(j  5 
a  , 

1 1.4000 
14.0000 

0 
0 

24 
25 

1312 
1312 

2 
2 

6 -j 

0  V 

17.0000 
22.666  7 

c 

18 

16 

0.000755 
0.000559 

0.00226 
0.00317 

0.0 1206 
0.01522 

0.01681 
0.01997 

0.01661 
0.01997 

0 
0 

26 

<  7 

1312 
1312 

2 
2 

0  5 

05 

2  4.C0C I 

c 

15 

1. 33)3 

2.0000 
3.0000 
6.00CO 
5.6667 

O.CC040 

0.00040 
0.000)3 
0.00022 
0.00017 

-0.00000215 

-O.OCC00096 
-0.00000190 
-0.00000143 
-0.00000049 

C. 00040 

0.00040 

0.00033 
0.00022 
0.00017 

0.0004  33 
0.0006  58 
0.000396 
0.000362 
0.000272 
0.000194 

0.00058 

6.0  )0  79 

0.00109 
0.00163 
0.00110 

0.01580 

0.01580 
0 .000  79 
0.00188 

0.02055 

0.021 34 
0.02243 

0.02055 
0.02055 
0.02134 
0.02243 

0 
7 
0 
0 

2  8 
29 

1312 
1312 

3 

3 

6  5 

2.0000 

5.01  I'll 

0 

0 
0 

15 

14 

12 

11 

30 
31 

1312 
1312 

3 
3 

6  i 

ft  5 

1 1 .0000 
16.6667 

0.66351 
6.66461 

0.02406 
0.02516 

0.02406 
0.02516 

0 
0 

32 
33 

1312 
1312 

3 

3 

6  -.. 

20.3333 
24.000(1 

11 

10 
10 

3.6667 
3.6667 

5.6667 
5.0000 
1.3)33 

0.00017 
0.C0013 

0.00013 
O.COOIO 
O.0C017 

-0.00000076 
-0.0C0C0076 

-0.00000055 
0.0C000358 
0.0C000418 

0.00017 
0.00013 

0.00013 

6.00610 

0.C0018 

0.000171 
0.000152 
0.0662  41 
0.666132 
0.0001  18 
0.000140 

0.00063 
J).  00056 

0.00075 

0.00059 
0.00019 

0.00524 
0.00580 

0.02579 
0.02634 

0.02579 
0.02634 

0 
0 

34 
35 

1312 
1312 

3 

4 

65 

'  5 

5.6667 

c 

0.00560 
0.00075 
0.00134 
0.00153 

0.02 709 
0.02 766 
0.02787 

0.02634 
0.02709 
0.0276B 
0.02787 

7 
0 
0 
0 

36 
)7 

1312 
1312 

4 

4 

6  i 
65 

10.6667 
12.CO0O 

0 

0 

09 
11 

18 

19 

1312 
1312 

4 
4 

6  5 

lb.COOO 
24. 1  )00 

c 
c 

11 

10 

6.0000 
6.0000 

0.CCC17 
0.0001 3 

-0.00000046 
-0.00000115 

0.00017 
0.00013 

0.000174 
0.000152 

0.00104 
0.00091 

0.00257 
0.00348 

0.02891 
0.02982 

0.02891 
0.02982 

0 

0 

40 
41 

1312 
1312 

4 
5 

6  5 

4.0000 

c 

09 

4.0000 
5.0000 
4.0000 

O.COOIO 
O.CCC07 
0.00022 

-0.0CC00124 
0.00000219 
0. 00000281 

O.OOOIO 
0.00006 
0.00022 

0.000145 
0.0001 15 
0.000087 
0.000148 

0.00046 
0.00043 
0.00059 

0.00348 

0.00046 
0.00090 
0.00149 

0.03629 

0.02982 
0.03029 

1 

0 

42 
43 

1312 
1312 

5 
5 

6  5 

6  i 

9.0000 
13.0000 

0 

■; 

08 
12 

0.03072 
0.03131 

0.03672 
0.03131 

0 
0 

44 

45 

1312 
1312 

5 
5 

63 
65 

14.6667 
18.3333 

0 

12 
1  1 

1.6667 
).6667 
l.COGO 
2.6667 

B.COCO 

0.C0C22 
0.0C017 
0.CGC13 
O.OOOIO 

0.00007 

-O.OOC00077 
-C. 00000169 
-0.00C00196 
-0.00000136 

O.C0022 
0.00017 

0.000219 
0.000194 

0.00036 
0.00071 

0.00165 
0.00256 

0.03168 
0.03239 

.03168 
0.03239 

0 

0 

46 

4  7 

1312 
1312 

5 
5 

65 

21.3)33 

24.0000 

0 

10 

09 

0.00013 

0.00010 

0.000151 
0.000115 

0.00045 
0.00031 

0.00301 
0.00332 

0.0326* 
0.03314 

0.03284 
0.03314 

0 
0 

48 
49 

1312 
1312 

5 
6 

65 

8.C000 

0 

08 

-0.CCC00034 

0.00007 

0.000138 
0.0000  86 

0.00066 

0.00332 

0.00068 

0.03363 

0.03314 
0.03363 

7 
0 

50 
51 

1312 

6 

65 

9.3333 

0 

08 

1.13)3 

O.CC007 

0.00000164 

0.00007 

0.000073 

0.00010 

0.00078 

0.03393 

0.03393 

0 

52 

21 


TABLE   B5.    --   CONTINUED 


RUNOFF  CCHPUTATIONS'fcATERSHEG  ENG I NEER I NG ' BLACK SBURG , VA . 


NO 
1312 


DATE 
MC  CA  YR 


TIKE  OF  GAGE  hi  TIME  INT  OLTFLOn  RATE 


RUNUFF  RATE   AVG  RU  RATE  RO  TINE   4CCUM  DA  ACCUM  MO  ACCOM  YR 


CAY 
.2667 


(FT.) 
C.13 


(HRS. ) 
U.0667 


I IN/HR) 
0.00027 


CORR 
.00C02121 


(IN/HR) 
0.00025 


1 IN/HR) 
0.000281 


I  N  T  I  I  N  I 
0.00002 


ROC  IN.) 
0. 07648 


ROI IN.) 

0.07848 


ROI IN.) 
6.41101 


CODE  NO. 
0   1336 


1312 
1312 

B 

2 
: 

6  5 

2 
3 

4000 
0000 

0 

0 

12 

09 

0 
0 

1333 

6000 

3 

0 

CC022 
0C010 

-2 

-c 

00003511 
CC002615 

0 
0 

00018 
00007 

0.000216 
0.000128 

0. 

0 

00003 
00008 

0 
0 

07851 

0763* 

2 
0 

07851 
07859 

6 
6 

41104 
41112 

0 

0 

1337 

1338 

1312 
1312 

a 

? 
2 

65 

3 
4 

6667 
6667 

c 
c 

06 
03 

0 

1 

6666 
0000 

0 

u 

0C003 
CCOOl 

-c 

-2, 

00002022 
00001386 

0 
-0 

00001 
00001 

0.000044 
0.000002 

2 
0 

00003 
00000 

0 

0 

07862 
07862 

0 

2 

07862 
07662 

6 
6 

41115 

41115 

D 
0 

1339 
1340 

1312 
1312 

2 
? 

65 

6  5 

6 
/4 

0000 
0000 

c 

2 

00 
00 

1 

18 

3334 

0000 

0 
6 

00000 
00000 

0 

00000581 
COOOOOOO 

-0 
0 

000C1 
00000 

0.000000 
0.000000 

0 

00000 
00000 

0 
0 

07862 
07862 

u 
0 

07862 
07862 

6 

6 

41115 
41115 

0 

0 

1341 
1342 

1312 
1312 

B 
8 

z 

2  5 

6  3 

2  5 

6000 

6 

00 

548 

6000 

2 

OCOOO 

: 

0C201495 

0 

00201 

0.003276 
0.001007 

0 

55270 

0 

0 

07862 
55270 

0 

63132 

5 

6 

41115 
963B5 

/ 

0 

1343 
1344 

1312 
1312 

2  5 

65 
65 

2  5 
20 

6333 
666  7 

0 

c 

26 
50 

0 
C 

0333 
0333 

5) 

0 

0C1  76 
01026 

2 

0 

3C4t 654C 
00408943 

0 
0 

00642 
01435 

0.004218 
0.010385 

u 

2) 

00014 
00035 

a 

0 

55284 
55319 

u 

0 

63146 
63181 

6 
6 

96399 
96434 

2 
0 

1345 
1346 

1312 

1312 

8 
B 

2  5 
?5 

65 

(  5 

2C 

70OO 
.7667 

c 

c 

60 
70 

0 
C 

0333 
0667 

0 

0 

C1679 
C2545 

3 

00197212 
00114136 

0 
0 

01876 
02659 

0.016553 
0.022674 

u 
0 

00055 
00151 

0 

0 

553  74 
55525 

(3 
0 

63236 
63387 

6 
6 

96489 
96640 

0 

0 

1347 
1348 

1312 
1312 

f. 

25 
25 

65 

6  3 

20 
2C 

80O0 
8667 

0 
0 

73 

74 

0 
0 

0333 
0667 

0 

a 

02850 
02957 

0 

-c 

00051143 
0C0O7362 

0 
0 

02901 

029  5  0 

0.027803 
0.029255 

0 

0 

00093 
00195 

0 

0 

55618 

5531  3 

3 

0 

63480 
63675 

6 

6 

96733 

9  6  9  2  B 

0 
0 

1349 
1350 

1312 
1312 

B 

B 

25 

.-  5 

t  :i 
•  3 

2C 
2  1 

9000 
OOOo 

0 

c 

73 
62 

0 
0 

0333 
1000 

0 
0 

C2850 
01834 

-2 
-2 

00068158 
00C85801 

0 

0 

02  7  8  2 
01748 

0.028658 
0.022651 

2 

6 

00096 
00227 

0 

0 

55  90  8 
56135 

C 
0 

63770 
63997 

6 
6 

97023 
97250 

0 
0 

1351 

1352 

1312 
1312 

B 
6 

25 
25 

65 

21 
21 

133  3 
3333 

0 
0 

bl 
39 

0 
0 

1333 

2000 

0 

3 

01082 
0C525 

- 

-2 

0C057658 
0C037759 

0 
0 

01025 
00487 

0.013864 
0.007557 

0 

2 

00185 
00151 

0 
0 

56320 
56471 

0 
0 

64182 
64333 

6 

6 

97435 
97586 

0 

0 

135  3 
1354 

1312 
1312 

- 
6 

25 
2  5 

'  3 

65 

3  1 
2  1 

5333 

8000 

0 
2 

S  . 
2i 

0 
0 

20CC 
2667 

2 

0C258 
CC126 

-c 
-c 

00023222 
00012441 

0 
0 

00235 
C0U4 

0.003609 
0.001744 

u 

c 

00072 
0O046 

0 
0 

56543 

565-13 

2 
0 

64405 
64452 

6 

6 

97658 
97705 

G 

0 

1355 

1356 

1312 
1312 

2 

B 

25 

2  5 

65 

65 

'2 
22 

2000 
6667 

0 
0 

17 
13 

0 
0 

4000 
4667 

0 
I 

00056 
C0027 

-t 

-0 

00006843 
0C004544 

0 
0 

00049 
00022 

0.000813 
0.000357 

0 
0 

00032 
00017 

0 
0 

56622 
56639 

0 

0 

64484 
64501 

6 

6 

97737 
97754 

0 
0 

1357 

1358 

1312 
1312 

- 
- 

2  5 

25 

t  5 
63 

2  I 
5  I 

0667 
5333 

c 
c 

10 

OB 

0 

0 

4000 
4667 

0 

CC013 
0C007 

-0 

-c 

00003266 
00001757 

0 
0 

00010 
00006 

0.000163 
0.000078 

c 

c 

00007 
00004 

J 
c 

56645 
56649 

0 
0 

64507 
64511 

6 

6 

.97760 
97764 

0 

0 

13  59 
1360 

1312 
1312 

S 
B 

25 

-5 

5  3 
65 

:- 

coco 

I 

07 

0 

4667 

U 

C0005 

-2 

00001396 

0 

C  0  0  C  4 

0.000046 
0.023605 

0 

00002 

0 

0 

56651 
56651 

1 

64513 

6 
6 

97766 
97766 

0 
7 

1361 

1362 

1312 
1312 

B 
3 

2  c 

t3 

5  3 
5  5 

2 

coco 

6667 

C 

2 

04 
02 

1 

1 

OCOO 
6666 

- 

C  L  C  0  1 
CCCOO 

-c 

-5 

00001116 
00000707 

0 

-0 

coooo 

00001 

0.000018 
0.000000 

0 

0 

00  002 
00000 

0 
0 

00002 
00002 

c 

0 

64515 
64515 

6 
6 

.97768 
97768 

0 
0 

1363 
1364 

1312 
1312 

4 
B 

26 

26 

5-  5 
6  3 

<- 

- 

0000 
0000 

i 
0 

00 
00 

1 

20 

3334 

OOCO 

0 

COCOO 

coooo 

-1 

2 

00000387 
COOOOCOO 

-0 
0 

oooco 
coooo 

0.000000 
0.000000 

3 
0 

00000 
00000 

0 

c 

00002 
00002 

0 
0 

64515 
64515 

6 
6 

97768 
97768 

0 
0 

1365 
1366 

1312   8  26  03 


1312 

9 

f  5 

14 

13667 

: 

L'J 

254 

0667 

I 

OCOOO 

0 

00092998 

3 

00C93 

0 

000463 

c 

U614 

2 

11814 

3 

25263 

7 

.23031 

0 

1454 

1312 
1312 

3 
9 

24 
24 

6  3 

14 

14 

100C 
1333 

) 

12 
26 

0 
0 

0333 
0333 

5 

00022 
0C176 

2 

c 

C0219126 
0C261262 

0 

- 

00241 
C0437 

0 
0 

001669 
003388 

C 

0 

0  0006 
00011 

0 
0 

11819 
11831 

0 
0 

25269 

252t>3 

7 
7 

23037 
.23048 

0 

0 

1455 

1456 

1312 
1312 

9 
9 

24 
24 

6  5 

6  5 

14 
14 

166  7 

2000 

0 

c 

40 
52 

0 

0335 
0333 

2 

0 

0C562 
01141 

2 
C 

0C283504 
00269554 

i. 
0 

C0845 
01410 

0 
0 

006410 
011276 

3 

0 

00021 
00038 

0 
0 

11852 

11890 

0 

0 

2  5  3  3  2 
23339 

7 
7 

.23069 
23107 

0 
0 

1457 
1458 

1312 
1312 

) 

3 

24 

24 

6  3 

14 
14 

2333 

2667 

2 

62 

70 

0 
0 

C333 

C334 

01o34 
C2345 

3 

0 

00240576 

2  2  1  -  t  r   4  4 

- 

2  2  2  7  4 
C2745 

0 

0 

017423 

024095 

0 

2 

00058 
00080 

0 

o 

11946 
12028 

0 

0 

25397 
25478 

7 
7 

23165 
23245 

2 

3 

1459 

1460 

1  312 
1312 

9 
i 

4 

.4 

14 

30O0 
3333 

n 

76 
82 

u 

0 

0333 
0333 

0 

C3176 

6 

3 

00183020 
0C185159 

3 
3 

03361 
04139 

0 

L 

030527 
037499 

2 

0 

00102 
00125 

2 

12130 
122  5  5 

0 

0 

25579 

25  7^4 

7 
7 

23347 
23472 

0 
0 

1461 
1462 

1312 
1312 

9 

g 

.  4 

3  3 

6  3 

14 
.- 

366/ 

4000 

2 

87 

89 

0 
0 

0333 
0333 

5 
3 

04715 
C3019 

2 

0 

00127031 
0C037354 

04842 
05056 

0 
0 

044904 
0494  90 

0 

2 

00150 
00165 

0 
0 

12424 
12369 

0 
0 

25854 
26019 

7 
7 

23622 
23787 

0 

0 

1463 

1464 

L  J  12 
1312 

4 

9 

.4 

6  5 
6  3 

14 

14 

4300 
5333 

3 
- 

89 
64 

0 
0 

0500 
0834 

- 

05019 
04258 

-0 

-c 

00037327 

0CC69413 

0 

04982 
04169 

0 
0 

050189 
045852 

0 
0 

00251 

22  362 

0 

2 

12820 
13203 

0 

0 

26270 
26652 

7 
7 

24038 

2  4  4  2  2 

0 
0 

1465 
1466 

1312 
1312 

'5 
9 

4 

6  3 
• 

14 

l- 

6000 
7000 

2. 
2 

80 
72 

0 
0 

6  b  7 
1000 

J 

0 

C3650 
C2746 

-2 

-c 

00076093 
00C80073 

2 

6 

03574 
02666 

0 
0 

038812 
031198 

0 

c 

00259 
00312 

0 
0 

13461 
13773 

0 

0 

26911 
27223 
27482 
27745 

7 
7 

2  4  6  7  6 

24990 

0 

0 

1467 
1468 

1312 
1312 

9 

3 

- 

6  3 

63 

.4 
15 

8167 
0000 

2 
3 

62 
52 

0 
0 

1167 
1833 

- 
3 

01834 
01141 

-2 
-0 

00062510 
0C041874 

3 

0 

01771 
01C99 

0 
0 

022187 
014350 

0 
0 

00259 
00263 

0 

2 

14032 
14295 

0 

c 

7 
7 

25249 

25512 

0 

c 

1469 
1470 

1312 
1312 

i 

'  1 

1  5 

1667 

4000 

1 

44 
36 

0 
0 

1666 
2333 

0 

5 

00727 
00423 

-0 
-0 

00031138 
0C019784 

0 

0 

00695 

00403 

0 
0 

008970 

0054  91 

0 

c 

00149 
00128 

0. 

14445 
14573 

I 

0 

27894 

7 
7 

25662 

2  5  792 

c 

0 

1471 
1472 

1312 
1312 

9 
J 

4 
24 

63 

1  3 
1' 

666  7 
0000 

C 
2 

31' 

u 

0 

2667 

)3  S4 

3 
j 

00258 
C0158 

-0 

-2 

00012222 
00008192 

1 

31 

00246 
00150 

0 
0 

003245 
001979 

0 

0 

00087 
00066 

2 
3 

14659 

1-725 

0 
0 

28109 
28175 

7 

7 

24877 
25942 

2 
0 

1473 
1474 

1312 
1312 

3 

9 

24 

6  3 
6  3 

13 
1  1 

6000 
3333 

C 

0 

18 
14 

0 
0 

60C0 
7333 

0 

C0065 
00033 

-2 
-0 

C0005002 
00002406 

2 

6 

00C60 
00031 

0 
0 

001049 
000453 

0 

2 

00063 
00033 

0 

3' 

14788 
14821 

0 

0 

26238 
28271 

7 
7 

26005 
26039 

0 

6 

1475 
1476 

1312 
1312 

9 
3 

2  4 
24 

6  3 
6  3 

1c 
14 

CCOO 

22:  j 

c 
0 

12 

1 

0 

1 

6667 
2000 

0 

00022 
CC013 

-0 

-3 

00001311 
00000858 

u 

u 

00020 
C0012 

0 
0 

000255 
000164 

0 
2 

00017 
00020 

3 
2 

14838 
14658 

0 
0 

28288 
28308 

7 
7 

26056 
26075 

0 
0 

1477 
1478 

1312 
1312 


65  20.6000 
65  22.2000 


1312 
1312 


-24652,. 


1 
1 

.4000 
.6000 
.8000" 

0 
0 

00007 
00003 

-0 

-2 

0C000732 
00000487 

0. 
0 

C0007 
00003 

0.000095 
0.000047 

0 
0 

00013 
00008 

0 
0 

14871 

14679 

0 
0 

28321 
28329 

7 
7 

26089 
26096 

0 
C 

1479 
1480 

1 

0 

C0002 

-L 

3CC00416 

0 

00002 

0.000022 

0.006201 

0 

00004 

0 

0 

14093 
14683 

0 

.28333 

7 
7 

26100 

26100 

2 
7 

1461 
1482 

2 
1 

.0000 
.6000 
.7333 
.6667 

0 

0C001 
COOOO 

-c 

-0 

C0000429 
00000356 

0 
-0 

00000 
00000 

0.000009 
0.000000 

0 
0 

00002 

ooooo 

0 
0 

00002 
00002 

0 
0 

.28334 
28334 

7 
7 

26102 

26  122 

2 
0 

1483 
1484 

2 
17 

J 

0 

00000 
00000 

-0 
0 

00C00189 
00000000 

-0 

0 

OOCOO 
00000 

0.000000 
0.000000 

0 

2 

00000 

ooooo 

0 
0 

00002 
00002 

0 

0 

28334 
28334 

; 

7 

26122 
26102 

0 
0 

1485 
1486 

0.000001 

0 

00002 

7 

26102 

7 

1487 

1312 
1312 

9  25  63 
9  25  65 

2.0000 
3.6000 

0 
0 

03 
02 

1312 
1312 

9  25  63 
9  25  63 

6.3333 
24.0000 

0 
0 

00 
00 

1312   9  25  65 


1312 

9 

65 

FLO* 
85.00 

DURATION 
28.89 

AS 

PERCENT 
20.91 

OF  TIME 
13.01 

RUNOFF 
11.03 

OCCURRED 

8   1488 

1312 
1312 

9 

9 

65 
63 

7.81 
3.33 

5.12 
2.65 

4.15 
2.21 

4.13 

1.63 

3.35 

1.54 

8 

8 

1489 
1490 

1312 
1312 

9 

9 

65 

63 

1.15 

0.00 

1.15 

0.00 

0.79 

0.00 

0.5  3 
0.00 

0.13 

0.00 

8 
8 

1491 
1492 

1312 
1312 


1312 
1312 


4.46 
0.41 


FLOK  DURATION  AS  PERCENT  OF  TOTAL  TIME 


6.16 

0.06 


1.52 
0.27 


1.10 
0.22 


0.68 
0.22 


0.14 

0.12 

0.09 

0.06 

0.06 

0.04 

0.03 

0.01 

1493 
1494 


1495 

1496 
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TABLE  B5. 


CONTINUED 


1312 

. 

63 

FLOW 
)  >.86 

DURATION  AS  PEKCENT 
97.18     95.73 

OF  TOTAL 
92.46 

RUNOFF 
91.04 

H 

1312 

4 

65 

87.99 
79.76 

84.69 
75.41 

82.61 
71.07 

82.61 
62.32 

79.76 
60.63 

8 

n 

1499 

1500 

1312 

< 

65 

50.76 
0.00 

50.76 
0.00 

38.73 

0.00 

27.57 

0.00 

7.30 

0.00 

8 

8 

1501 
1502 

ACC  RUNOFF  ABOVE  GIVEN  RATES 

1312 

9 

63 

0.03434 

0.03025 

0.03341 
0.02911 

0.03291 

0.02840 

0.03179 
0.02840 

0.03130 
0.02742 

8 

H 

1503 
1504 

1312 

9 

63 



0.02742 
0.01745 

0.02593 
0.01745 

0.02443 
0.01331 

0.02142 
0.00948 

0.02084 
0.00251 

8 
8 
8 

1505 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

1507 

1312 

. 

63 

ACC  T 
32.117 

IME  OF  RUNOFF  ABOVE 
10.917     7.900 

GIVEN  RATES 
4.917     4.167 

8 

1312 

') 

63 

2.950 
1.267 

1.933 

I. 000 

1.567 
0.833 

1.567 
0.617 

1.267 
0.583 

8 

H 

1509 
1510 

1312 
1312 

9 

63 
63 

0.433      0.433 
0.000      0.000 

Finn  DURATION  AS 
97.83      81.37 

0.300 
0.000 

i  PERCENT 
68.02 

0.200     0.050     8   1511 
0.000     0.000     R   1413 

OF  TIME  RUNOFF  OCCURRED 
47.68     40.95      9   1572 

1312 
1312 

03 
65 

33.84 
5.34 

22.93 
3.50 

18.89 
2.66 

13.15 
1.77 

6.75 
1.27 

9 
9 

1573 
1574 

1312 
1312 

63 
63 

1.07 

0.2S 

0.88 
0.19 

0.63 
0.01 

0.58 
0.00 

0.42 
0.00 

9 

9 

1575 
1576 

FLOW  DURATION  AS 

PERCENT 

OF  TOTAL 

TIME 

1312 
1312 

65 

65 

34.88 
12.07 

29.01 
8.18 

24.25 
6.74 

17.00 

4.69 

14.60 
2.41 

9 
9 

1577 
1578 

1312 
1312 

65 
6  5 

1.90 

0.  38 

1.25 
0.31 

0.95 
0.22 

0.63 
0.21 

0.45 
0.15 

9 
9 

1579 
1580 

1312 

65 

u.  10 

0.07 

0.00 

0.00 

0.00 

9 

1581 

1312 

65 

FLOW  DURATION  AS 
99.99      99.70 

PERCENT 
98.67 

OF  TOTAL 
95.08 

RUNOFF 
92.94 

9 

ISM.' 

1312 
1312 

(  5 
65 

89.73 
57.12 

82.40 
51.30 

78.79 
47.48 

71.65 
41.67 

60.37 

il  .  25 

9 
9 

158  3 
1584 

1312 

1312 

65 

14.  B9 
18.65 

32.28 
14.92 

28.05 
1.20 

27.12 

0.00 

23.23 

0.00 

9 
9 

1585 
1586 

ACC  RUNOFF  ABOVE 

GIVEN  RATES 

1312 
13  12 

65 

65 

6.01365 
5.39621 

5.99599 
4.95572 

5.93428 
4.73821 

5.  71  B38 
4.30881 

5.58941 
3.63084 

9 
9 

1587 
1588 

1312 
1312 

65 
63 

3.43523 
2.09832 

3.08538 
1.94121 

2.85523 
1 .68688 

2.50584 
1.63078 

2.24004 
1.39682 

9 
9 

1589 
1590 

1312 

65 

1.12140 

0.89722 

0.07210 

0.00000 

0.00000 

9 

1591 

1312 

65 

ACC  TIME  OF  RUNOFF  ABOVE  GIVEN  RATES 
3053.750   2541.517  2  124.733  1489.400  1279.017 

9 

1592 

1312 
1312 

65 

6  3 

1056.967 
166.783 

716.150   590.050   410.850   210.800 
109.467    83.050    55.350    39.750 

9 

9 

1593 
1594 

1312 
1312 

t>5 
65 

33.300 

8.600 

27.567 

6.000 

19.633 

0.26  7 

18.167 

0.000 

13.017 

0.000 

9 
9 

1595 
1596 

MAXIMOP 

»CLUHE  FCR  SELECTEC 

TIME  INTERVALS 

1312 
1312 

? 
2 

7 
1 

63  17.6000      0. 
65  18.4C00      0. 

.,.5300 
. tAA  1  J 

1. 

2. 

6 
6 

1597 
1598 

1312 
1312 

2 

2 

1 
1 

65  19.2000      0. 
65  23.1333      1 

.08698 
.^3305 

(, . 
12. 

6 
6 

1599 
16C0 

13  12 
1312 

2 

2 

9 

63   8.6667       1 
63   9.3333      1 

,15340 
.o0747 

24. 

48. 

6 
6 

1601 
1602 

1312 

2 

15 

65   9.0000      1 

...4100 

192. 

6 

1603 

PEAK 
1312 

DISCHARGE  FCR  YtAR 
2   7  65  17.3333      0 

.,«!. 

6 

1604 

63       WATERSHED    IDEMIFICATION    FOR    LPCAIING    STORAGE    TAPE    =    0.12 


3.  Daily  summaries. 

4.  Monthly  flow-duration  summaries. 

5.  Yearly  flow-duration  summaries. 

6.  Maximum  volumes  for  selected  time  intervals. 

7.  Maximum  peak  discharge  for  the  period  of  record  being  processed. 

8.  End  station  code. 

Each  different  output  summary  has  a  unique  (KODE)  except  the  error  output  as  described 
on  page  27.  The  information  contained  in  each  output  with  the  format  for  S.SU06  listed  first, 
followed  by  the  format  for  S.SUOO,  is  illustrated  below.  Note  that  the  information  contained  in 
each  format  illustration  is  identified  by,  reading  from  top  to  bottom,  (1)  print  position  or  card 
column  whichever  is  applicable,  (2)  data  format  specification,  and  (3)  the  Fortran  variable 
name. 
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TABLE   B6 


?  d 


1965    RUNOFF  OUTPUT   IN  ABBREVIATED   FORM   FOR  PONY  MOUNTAIN 
BRANCH  WATERSHED,    CULPEPER,    VIRGINIA.      FORMAT   FOR  PERMANENT 
STORAGE    (S.SUOO) 


T 


—  I 


1312 

1 

66 

n 

0000 

n 

n 

0 

0000 

0.00017  0 

00000000 

o 

00017 

g 

00017 

0.00000 

0.0  100 

0 

00000 

( . :  o  o  j  .. 

0 

012 

1 

1312 
1312 

1 
1 

65 

1 

14 

3333 

0000 

0 
0 

n 

10 

1 
12 

3333 
6667 

0.00017-0 
0.00013  0 

00000022 
00000144 

0. 

0 

00017 
00013 

o 
Q 

00017 
00015 

0.00023 
C. 00194 

0.00023 
0.00217 

u 

00023 
00217 

0.00023 
0.00217 

0 

a 

U12 
012 

2 
3 

1312 
1312 

1 
1 

65 
AS 

15 

16 

6667 

6667 

c 
n 

i  i 

12 

1 

1 

6667 

UOOO 

0.00017  0 
0.00022  0 

00000446 
00000281 

0 

c 

00018 
00022 

0 
0 

00016 
00020 

0.00026 
0.00020 

0.00243 
0.00263 

0 

0 

00243 
00263 

0.00243 
0.00263 

j 

0 

012 

Q12 

4 
5 

1312 
1312 

1 
1 

6") 
65 

20 

21 

6667 
6667 

0 

0 

12 
13 

4 
1 

0000 
0000 

0.00022  0 
0.00027  0 

00000281 
00000813 

0 

0 

00022 
00028 

0 

0 

00022 
00025 

0.00088 
0.00025 

0.00351 
0.00376 

0 

j 

00351 
00376 

0.00351 
0.00375 

0 
0 

012 

a  12 

6 

7 

1312 
1312 

1 
1 

65 
65 

22 
2  2 

2000 
6667 

0 

0 

14 
15 

0 

0 

5333 
4667 

0.00033  0 
0.00040  0 

00001144 

00001673 

0 
0 

00C34 
00041 

0 
0 

00031 
00038 

0.00017 
0.00018 

0.00392 
0.00410 

j 

0 

00392 
00410 

0.00392 
0.00410 

0 

0 

0  12 
012 

8 
9 

1312 
1312 

1 
1 

65 

65 

23 
21 

0000 
5333 

0 

n 

16 
16 

0 

o 

3333 

53  3  3 

0. 00047  0 
0.00047  0 

C 3000865 
00000618 

0. 

0 

00048 
00048 

0 
0 

00045 
0004a 

0.00015 
0.00026 

0.00425 
0.00450 

0 
0 

00425 
00450 

0.00425 
0.00450 

u 
0 

012 
012 

10 
11 

1312 
1312 

I 

65 
66 

24 

cooo 

0 

17 

0 

4667 

0.00056  0 

00000622 

0 

00056 

0 

0 

00052 
00020 

0.00024 

0.00475 
0. 00475 

0 

0047S 

0.00475 

.004  7', 

0 
7 

012 

012 

12 
13 

1312 

2 
2 

65 

65 

0 
1 

6667 
6000 

0 

n 

17 

16 

0 

n 

6667 
9333 

0.00056-0 

0.00067-0 

00000311 
00000309 

0 
0 

00055 
00C47 

0 

c 

100  56 
00051 

0.00037 
0.00048 

: .  o  >c  >7 

0.00085 

0 

00512 
00560 

0.00512 
0.00560 

0 

0 

012 

J12 

14 
15 

1312 
1312 

2 
2 

65 

65 

2 
2 

1333 
6667 

0 

0 

16 
17 

0 
0 

5333 
5333 

0.00047  0 
0.00056  0 

00000541 
00001415 

0 

0 

00048 
00057 

0 
0 

00047 
00053 

0.00025 
0.00028 

0.00110 
0.00138 

0 
0 

00585 
00613 

0.00585 
0.00613 

0 

0 

012 
012 

16 
17 

1312 
1312 

2 
2 

6  5 
ISS 

1 
1 

3333 
8667 

0 
0 

19 

2  0 

0 
0 

6667 
5333 

0.00075  0 
0.00086  0 

00001433 
00000555 

0 
0 

00077 
00087 

c 

0 

00067 
00082 

0.00045 
0.00044 

0.00183 
0.00227 

0 

0 

00658 
00701 

0.00658 
0.00701 

0 
0 

012 

012 

18 

I 'J 

1312 
1312 

2 

2 

65 

65 

4 

; 

3333 

COOO 

0 

0 

20 

IB 

0 

? 

4667 
6667 

0.00086-0 
0.00065-0 

00000222 
00000438 

0 

0 

00C86 
00065 

0 
0 

00087 
00075 

0.00040 
0.00201 

0.00267 
0.00468 

0 
0 

00742 
00943 

0.00742 
0.00943 

0 

0 

012 
U12 

20 
21 

1312 
1312 

2 
2 

65 
66 

8 
9 

3333 
1667 

0 

o 

1  7 
1  7 

1 

0 

3333 
8333 

0.00056-0 
0.00056  0 

000002  16 
00000390 

0 
0 

00C56 
00056 

0 
0 

00060 
00056 

0.00080 
0.00047 

0.00548 
0.00595 

c 

01023 
01069 

0.01023 
0.C1069 

0 

o 

012 

.12 

22 
23 

1312 
1312 

2 

? 

65 

6  5 

1 1 

1  6 

4000 
COOO 

0 
0 

20 
20 

2 
2 

2333 

6000 

0.00086  0 
0.00086-0 

00000398 
00000197 

0 

0 

00087 
00086 

0 

0 

00071 
00087 

0.00160 
0.00225 

0.00754 
0.00979 

0 
0 

01229 
01454 

0.01229 
0.01454 

0 
0 

012 
012 

24 
25 

1312 
1312 

2 
2 

AS 

1  7 
?? 

0000 
6667 

0 

0 

16 
16 

3 
5 

0000 
6667 

0.00065-0 
0.00047-0 

00000298 
00000318 

0 

o 

00065 
00047 

0 

c 

00075 
00056 

0.00226 
0.00317 

0.01206 
0.01522 

0 

o 

01b81 
01997 

0.01681 
0.01997 

0 

0 

012 

012 

26 
27 

1312 
1312 

2 

2 

65 
66 

,'6 

COOO 

c 

IS 

1 

3333 

0.00040-0 

00000215 

0 

O0C40 

0 

0 

00043 
00066 

0.00058 

0.01580 
0.G1580 

0 

02055 

0.02055 
0.02055 

0 
7 

012 

012 

28 
29 

1312 
1312 

3 
3 

65 
6  5 

2 

s 

0000 
0000 

0 
0 

15 
14 

2 
3 

0000 
0000 

0.00040-0 
0.00033-0 

00000096 
00000190 

0 

0 

(  11  6.'. 

00C33 

0 

G 

00040 
00036 

0.00079 
0.00109 

0.00079 
0.00188 

0 
0 

02134 
02243 

0.02134 
0.02243 

0 

D 

012 
012 

30 
31 

1312 
1312 

3 

1 

6  5 
66 

1 1 

16 

COOO 
6667 

0 
0 

12 
11 

6 
5 

0000 

6667 

0.00022-0 
0.00017-0 

00000143 
00000049 

0 

0 

00C22 
00017 

0 
0 

00027 
00019 

0.00163 
0.00110 

0.00351 
0.00461 

0 

0 

02406 
02516 

0.02406 
0.02516 

0 

012 
012 

32 
33 

1312 

l 

6  5 

f   5 

20 

3333 

COOO 

0 

0 

11 
10 

3 
3 

6  6  6  7 
6667 

0.00017-0 
0.00013-0 

00000076 

OQ000076 

0 

0 

00017 
00013 

0 

n 

00017 
00015 

0.00063 
0.00056 

0.00524 
0.00580 

0 
0 

02579 
02634 

0.02579 
0.02634 

0 
0 

012 
012 

34 
35 

1312 
1312 

3 

4 

6  5 
AS 

5 

6667 

0 

10 

6 

6667 

0.00013-0 

00000055 

0 

00013 

0 
C 

00024 
00013 

0.00075 

0.00580 
0.00075 

u 

21     J 

0.02634 
0.02709 

1 

0 

012 
012 

36 

37 

1312 
1312 

4 

65 
AS 

10 
1  ,' 

6667 
0000 

0 

n 

09 
1  I 

5 
1 

0000 

33  13 

0.00010  0 
0.00017  0 

00000358 
00000418 

0 
0 

00010 

H  0  0  1  8 

o 
0 

00012 
00014 

0.00059 

,00 0  I  ) 

0.00134 
0.00153 

0 

0 

)  2  76  6 
02787 

0.02768 
0.02787 

0 
0 

012 

,1.' 

38 
39 

1312 
1312 

4 

4 

65 
AS 

ie 

24 

COOO 

COOO 

0 

n 

1  1 
IP 

6 

6 

0000 

oooo 

0.00017-0 
0.00013-0 

00000046 
00000115 

0 
0 

O0C17 
00013 

0 

0 

00017 
00015 

.■Ifl'H 
0.00091 

C. 00257 
0.00348 

0 
0 

02691 
02982 

C. 02891 
C. 02982 

0 
0 

012 
012 

40 
41 

1312 
1312 

4 
5 

65 
AS 

6 

0000 

0 

0  1 

6 

0000 

0.00010-0 

00000124 

c 

OOclO 

0 

0 

00015 
00012 

0.00046 

0.00348 
0.00046 

0 

03029 

0.02982 
0.03025 

7 

0 

012 

012 

42 

43 

1312 
1312 

5 
5 

6  6 

6  6 

9 
1  1 

COOO 
COOO 

0 

o 

08 
12 

5 
6 

0000 
0000 

0.00007  0 

0.0002  2  0 

000002  19 
00000281 

0 
0 

00008 
00C22 

0 
0 

00009 
00015 

0.00043 
0.00059 

0.00090 
0.00149 

0 

03072 
03131 

0.03072 
0.03131 

0 

0 

012 
012 

44 
45 

1312 
1312 

5 

5 

66 
66 

16 

1  H 

6AA7 
3333 

0 

0 

12 
11 

1 
3 

6667 

666  7 

0.00022-0 
0.00017-0 

00000077 
00000169 

0 
0 

00022 
00017 

0 
0 

00022 
00019 

0.00036 
0.00071 

0.00185 
0.00256 

0 
0 

03168 
03239 

0.03168 
0.03239 

0 
0 

012 
012 

46 
47 

1312 
1312 

5 
1 

65 
66 

21 
24 

3333 

cooo 

c 

( 

10 

09 

3 
2 

ooco 

6667 

0.00013-0 
0.00010-0 

00000196 
0000013  8 

0 
0 

00013 
00010 

0 
0 

00015 
.00011 

0.00045 
0.00031 

0.00301 
0.00332 

0 
0 

03284 
03314 

0.C3284 
0.03314 

0 

0 

012 
012 

48 
49 

1312 
1312 

5 
6 

65 
65 

R 

COOO 

0 

08 

R 

ouoo 

0.00007-0 

000000  36 

0 

00007 

0 

0 

00014 
00009 

0.00068 

0.00332 
0.00068 

0 

03383 

0.03314 
0.03383 

1 

0 

012 
012 

50 
51 

1312 

6 

6  5 

9 

3333 

0. 

08 

1 

3333 

0.00007  0 

00000164 

0 

00007 

c 

00007 

0.00010 

0.00078 

0 

03393 

0.03393 

0 

012 

52 

1  3 12   8   2  65   2.4000 


1312 
1312 


3.0000 
3.6667 


0.12 
0  .  0  9 


0.1333 

0.6000 

.6666 


.00022-0.00003511 
.00010-0.00002615 
.00003-0.00002022 


.00018 

.00C07 

0.00C01 


.00022 
.00013 
.00004 


0.00003 

0.00008 

.000 11 


0.07851 
0.07859 
0.07862 


i076  5J_ 
.07859 
0.076O 


■41104 

.41112 

4  1115 


0  012  1338 
0  012  1339 


1  112 
1  312 

B 
8 

2 
2 

65 
65 

4 
6 

6667 

ccoo 

0.03 
0.00 

1 

1 

oooo 

3334 

0.00001-0 

o.ooooo-o 

00001386 
00000581 

-0 

-0 

0OCO1 
00C01 

0 

0 

00000 
00000 

0 

o 

00000 
00000 

0 

n 

07862 
07862 

0 

a 

.07862 
07862 

6 

41  115 
41115 

0 
0 

012 
012 

1340 
1341 

1312 
1312 

8 
8 

2 
2 

66 
66 

24 

oooo 

0.00 

18 

oooo 

6000 
0333 

0.00000  0 

~ o.'ooooo'b 

0.00176  0 

00000000 

00201495 
00466540 

0 

0 
0 

oocoo 

0 
0 

00000 
00328 

0 

00000 

0 

07862 
07862 

0 

07862 

6 
6 

41115 
41115 

0 

7 

012 
012 

1  342 
1343 

1312 
1312 

B 

26 
26 

65 
66 

20 
20 

6000 
6333 

0.00 
0.26 

54  B 
0 

00201 
00642 

0 

00101 
0  0  4  2  2 

0 

0 

552  70 
00014 

0 

0 

55270 

6  621, 

0 

0 

63132 
63146 

6 

6 

96385 
9o399 

0 

o 

012 

012 

1344 
1345 

1312 
1312 

S 
8 

25 
25 

65 
65 

2C 
20 

6667 

7000 

0.50 
0.60 

0 
0 

0333 

03)3 

0.01026  0 
0.01679  0 

00408943 
00197212 

0 

0 

0  16  3  5 
01876 

c 

0 

i  1  0  3  B 
01655 

0 
0 

:1(  L  3  6 
00055 

c 
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0.05019  0. 
0.05019-0, 


00199644 
00183020 
00185159 
00127051 
C0037354 
00037327 


.04258-0, 
.03650-0, 
.02746-0, 
.01834-0. 


000694  13 
00076093 
0008C073 
00062510 


.00C93 
.0024L 
.00437 


0.00046 
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0.00339 
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0.01128 
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0.2S302 
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0.03361 
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0.03053 
0.03750 
0. 0449Q 
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0. 12404 
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0.26270 


7.23245 
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0.03120 
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0.00259 
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7.24420 
7,24678 
7.24990 
7. 2524  1 


0    012  1466 

0    012  1467 
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0    012  1469 


*  The  numbers  in  parentheses  refer  to  the  print  position  of  the  respective 
data  fields.   See  section  -  Utility  Unit  S.SUOO  Output  Format  -  for  an 
explanation  of  the  data  contained  in  each  column. 
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2  .  ,  0  5  a 

3.6308 
7.7400 

9 

9 

012 
012 

1566 
1589 

1312 
1312 

65 
65 

2.0983 

1.1.14 

1.9412 
0.8972 

1 .6869 
1.0721 

1  .6)0« 
0.0000 

1. 3966 
0.0000 

9 

012 
012 

1590 
1591 

1312 
1312 

65 

66 

1099. 79   | 

1056.9666 

2541.5168 

7  19.15  0  ) 

'174.  7)  15 
590.0500 

1469. 40OI 
410.8500 

1779.0168 
710.8000 

9 

012 
012 

1592 
159  3 

1312 
1312 

66 
65 

166. 7833 
13.7999 

109.8  66  / 
77.5666 

63.0500 
19.6333 

55.3501 
18. 1667 

39.7501 
1 3.0166 

1 

9 

012 
012 

1594 

1595 

1312 
1312 

2 

7 

65 

65  17 

tcoo 

0.25300     I. 

8.  6000 

6.0000 

0.2667 

0.0000 

O.uOOO 

9 

6 

012 

C  12 

1596 
159  7 

1312 
1312 

2 
? 

/ 
7 

65  18 
65  19 

4000 

7  0  00 

0.44413     2. 
0.68696     6. 



'■ 

6 

012 
012 

19  9  9 
1  9).. 

1312 
1312 

2 

2 

7 

65  23 

65  a 

1333 

1.23303    12. 

6 
6 

012 
01? 

1600 
1601 

1312 
1312 

2 
? 

9 
15 

65   9 
65   9 

3  3  3  3 
COOO 

1.60747    48. 
1.94100   192. 

6 
6 

012 

,17 

1602 

16  0  1 

1312 
999 

2 

7 

65  17 

3333 

0.27039 

6 
2 

012 
01? 

1604 
1605 

*  The  numbers  in  parentheses  refer  to  the  print  position  of  the  respective 
data  fields.   See  section  -  Utility  Unit  S.SUOO  Output  Format  -  for  an 
explanation  of  the  data  contained  in  eac-~  column. 
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UTILITY  UNIT  S.SU06  Output  Format  (For  listing  and  temporary  storage) 

Note  that  the  numbers  refer  to  print  positions  on  the  IBM  1401  which  prints  10  characters 
per  inch,  with  the  extreme  left  position  designated  as  No.  1. 

KODE  =  0  (line  of  basic  data). — Note  that  the  first  list  of  symbols  refers  to  output  with 
pondage  correction,  whereas  the  second  list  refers  to  the  output  that  will  result  when  no  pondage 
correction  is  required.  The  dash  marks  indicate  that  the  symbol  for  both  outputs  is  the  same; 
blank  spaces  indicate  no  output. 


2-6 


7-9 


10-12 


13-15 


16-23 


24-30 


31-40 


+  XXXX 

+XX                  +  XX 

+  XX              +XX.XXXX            +XX.XX 

+  XXXX.XXXX 

IWID 

41-50 

MONTHO           NDAYC 
MONTH             NDAY 

51-63 

)           NYEAR                 HRO 
HR 

64-74 

HTO 
HT 

75-87 

TIO 
TI 

88-96 

+  XXX.XXXXX 

+XXX.XXXXXXXX          +XXXX.XXXXX 

+XXXX.XXXXXX 

+  XX.XXXXX 

RATEO 
RATE 

97-105 

PCORRO 

106-114 

AJRATE 
115-123                 124 

RRATE 
125-126          127-132 

RUNTI 

+  XX.XXXXX 

+  XX.XXXXX 

+XX.XXXXX             X 

+X              +XXXXX 

ACDR 

AC  MR 

ACYRR              NEST 

KODE               NUM 

KODE  =  2  (end  of  record).- 


2-6 

13-15 

16-70 

71-73 

125-126 

127-132 

+  XXXX 

+  XX 

See  note  below 

XXX 

+X 

+XXXXX 

NRECD         NYEAR 


KUPDAT 


KODE 


NUM 


Note:    Print  positions   16-70  contain  the  following  information:    WATERSHED  IDENTIFICA- 
TION FOR  UPDATING  STORAGE  TAPE  =. 


KODE    =  6  (maximum  volume  and  peak  discharge). — maximum  volume. 


2-6 

7-9 

10-12 

13-15 

16-23 

24-35 

+  XXXX 

+  XX 

+  XX 

+  XX 

+  XX.XXXX 

+XXXXX.XXXXX 

IWID  MDATE(I)  NDATE(I)  NYEAR 

36-45  124-126  127-132 


+  XXXXXXXX. 


+  XX 


HRS 


KODE 


+XXXXX 


NUM 


TDAY(I) 


AMAX(I) 


Peak  discharge. 


2-6 

7-9 

10-12 

13-15 

16-23 

24-35 

125-126 

127-132 

+  XXXX 

+  XX 

+  XX 

+  XX 

+XX.XXXX 

+XXXXX.XXXXX 

+  X 

+XXXXX 

IWID 


MP 


NP 


NYEAR 


TP 


PEAK 


KODE 


NUM 
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KODE  =  7  (daily  summary).— 


2-6 

7-9 

10-12 

13-15 

88-96 

97-105 

115-123 

125-126 

+  XXXX 

+  XX 

+  XX 

+  XX 

+  XX.XXXXX 

+  XX.XXXXX 

+XX.XXXXX 

+  X 

IWID         MONTH 
127-132 


+XXXXX 

NUM 


NDAY      NYEAR 


AVGDR 


ACDR 


ACYRR 


KODE 


KODE  =  8  (monthly  flow-duration  summary). — Note  that  the  top  line  refers  to  flow-duration 
output  from  J  =  1-75;  the  second  refers  to  output  from  J  =  76-100;  and  the  third  line  refers  to 
output  from  J  =  101-125  (see  output  section  appendix  list  B2). 

2-6  7-9  13-15  77-83  87-93  96-102  105-111 

78-86  88-96  97-105  106-114 

76-84  86-94  95-103  104-112 

<  +XX  +XX  +XXX.XX  +x 

+  XX.XXXXX        +x 
--- +XXXX.XXX         +x 

IWID  MONTHO        NYEAR  PER(J)  PER(J+1)  PER(J+2)  PER(J+3) 

114-120     125-126    127-132 

115-123  

113-121  

+  XXX.  XX  +X  +XXXXX 

+  XX.XXXXX  —  

+  XXXX.XXX  —  

PER(J+4)  KODE  NUM 


+  XXXX 

+  XX 

+  XX 

+  XXX.XX 

+XXX.XX 

+XXX.XX 

+  XXX.XX 



— 

— 

+  XX.XXXXX 

+XX.XXXXX 

+XX.XXXXX 

+  XX.XXXXX 



— 

— 

+  XXXX.XXX 

+XXXX.XXX 

+XXXX.XXX 

+  XXXX.XXX 

KODE  =  9  (yearly  flow-duration  summaries ).--The  output  for  KODE  =  9  follows  the  exact 
format  given  for  KODE  =  8. 

Error. — If  a  negative  time  interval  is  encountered  during  processing,  the  numbers  of  the 
data  cards  causing  this  error  are  written  on  S.SU06  only,  then  normal  processing  is  continued 
with  the  next  data  card.  The  information  contained  in  the  error  output  is  as  follows: 


1-5 

6-8 

9-11 

12-14 

15-22 

23-28 

29-38 

+  XXXX 

+XX 

+XX 

+  XX 

+  XX.XXXX 

+  XX.XX 

+XXXX.XXXX 

IWID 


MONTH 


NDAY 


NYEAR 


HR 


HT 


TI 


39-91 


92-96 


97-100 


(See  note  below) 


+  XXXX 


101-105 


(See  note  below) 


+  XXXX 


KSEQO 


KSEQ 


Note:    Print  positions   39-91  contain:    NEGATIVE  OR  ZERO   TIME  INTERVAL   BETWEEN 
CARD  NUMBERS.  Print  positions  97-100  contain:    AND. 
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UTILITY  UNIT  S.SUOO  Output  Format  (For  permanent  storage) 

The  data  are  placed  on  magnetic  tape  for  permanent  storage  in  a  131-column  card  image 
as  indicated  by  the  formats  listed  below.  These  same  numbers  refer  to  print  positions  if  the 
data  are  listed  by  the  IBM  1401. 

KODE  =  0  (line  of  basic  data). — Note  that  the  order  of  presentation  for  the  KODE  =  0  output 
is  identical  to  that  given  for  S.SU06. 


1-5 


6-8 


9-11 


12-14 


15-22 


23-28 


29-38 


+XXXX               +XX                   +XX 

+XX 

+XX.XXXX           +XX.XX 

+XXXX.XXXX 

IWID              MONTHO           NDAYO 
MONTH             NDAY 

39-48                              49-59 

NYEAR 

60-69 

HRO 
HR 

HTO 
HT 

70-79 

TIO 
TI 

80-89 

+  XXXX.XXXXX            ±X.XXXXXXXX 

+  XXX.XXXXX            +  XXX.XXXXX 

+  XXX.XXXXX 

RATEO                           PCORRO 
90-99                      100-109 

AJRATE 
RATE 

110-119                  120 

RRATE 
121-122          124- 

RUNTI 
•126           127-131 

+  XXX.XXXXX        +XXX.XXXXX 

+  XXX.XXXXX 

X 

+  X                  XXX             +  XXXX 

ACDR                        ACMR 

ACYRR 

124-126 

NEST 
127-131 

KODE           KUPDAT           NUM 

KODE  =  2  (end  of  record).— 
1-5                 12-14              121-122 

+  XXXX              +XX                   +X 

XXX 

+  XXXX 

NRECD 


NYEAR 


KODE 


KUPDAT 


NUM 


KODE    =  6  (maximum  volume  and  peak  discharge). — Maximum  volume. 
1-5  6-8  9-11  12-14  15-22  23-31 


32-37 


+  XXXX 

+  XX 

+  XX 

+  XX 

+  XX.XXXX 

+  XX.XXXXX 

+  XXXX. 

IWID 
121-122 

MDATE(I) 
124-126 

NDATE(I) 
127-131 

NYEAR 

TDAY(I) 

AMAX(I) 

HRS 

+  X 

XXX 

+  XXXX 

KODE 

KUPDAT 

NUM 

Peak  discharge. 
1_5  6-8       9-11 


12-14 


15-22 


23-31 


121-122        124-126 


127-131 


+  XXXX       +XX       +XX         +  XX         +XX.XXXX       +XX.XXXXX 


+  x 


XXX 


+  XXXX 


IWID 


MP 


NP 


NYEAR 


TP 


PEAK 


KODE 


KUPDAT 


NUM 
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KODE  =  7  (daily  summary).— 


1-5 

6-8 

9-11 

12-14 

70-79 

90-99 

110-119 

+  XXXX 

+  XX 

+  XX 

+  XX 

+  XXX.XXXXX 

+  XXX.XXXXX 

+  XXX.XXXXX 

IWID  MONTH         NDAY        NYEAR 

121-122  124-126  127-131 


+  X 


KODE 


XXX 


+  XXXX 


KUPDAT 


NUM 


AVGDR 


ACDR 


ACYRR 


KODE  -  8  (monthly  flow-duration  summary). — 


1-5 

6-8 

12-14 

69-78 

79-88 

89-98 

+  XXXX 

+  XX 

+  XX 

+XXXX.XXXX 

+  XXXX.XXXX 

+  XXXX.XXXX 

IWID  MONTHO  NYEAR  PER(J)  PER(J+1)  PER(J+2) 

99-108  109-118  121-122  124-126  127-131 


+  XXXX.XXXX 


+XXXX.XXXX 


+X 


XXX 


+  XXXX 


PER(J  +  3) 


PER(J+4) 


KODE 


KUPDAT 


NUM 


KODE  =  9    (yearly  flow-duration  summary). — The  output  for  KODE   =  9  follows  the  exact 
format  of  KODE  =  8. 


PROGRAM  C  (MISCELLANEOUS  HYDROLOGIC  DATA 
REDUCTION  PROGRAM) 


Program  Features 

Program  C  contains  four  subroutines  connected  by  a  mainline  calling  routine.  A  control  card, 
which  precedes  each  group  of  data,  directs  program  control  to  the  appropriate  subroutine.  The 
four  routines  are  identified  as  MOIST,  LDUSE,  WIND,  and  TEMP.  A  listing  of  the  source  pro- 
gram and  a  detailed  description  of  the  variables  are  given  in  appendix  lists  CI  and  C2. 

The  MOIST  subroutine  determines  percentage  of  soil  moisture  by  volume  when  the  counting 
rate,  percentage  standard,  and  calibration  curve  for  the  instrument  being  used  are  given. 

The  LDUSE  subroutine  summarizes  land-use  data,  when  field  weights  and  corresponding 
land-use  codes  are  given. 

In  the  WIND  subroutine  the  average  windspeed  in  miles  per  hour  is  determined  for  (1)  the 
time  interval  between  consecutive  readings,  (2)  the  month,  and  (3)  the  year  when  time  and  total 
miles  traveled  are  given. 

In  the  TEMP  subroutine  the  maximum  and  minimum  temperature  values  are  summarized 
in  tabular  form,  when  daily  maximum-minimum  temperature  readings  are  given. 


Mainline  Program 

The  function  of  the  mainline  program  is  to  call  the  subroutine  specified  by  KCONTR.  KCONTR 
is  a  one-digit  integer  having  possible  values  of  1,  2,  3,  4,  or  5.  See  the  individual  subroutines  for 
the  appropriate  value  for  KCONTR. 

Processing  may  be  terminated  by  making  KCONTR  =  5  and  placing  this  card  at  the  end  of  the 
last  group  of  data  to  be  processed. 
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Subroutine  MOIST 


Input 


The  input  consists  of: 

1.  Control  card. 

2.  Three  tables  containing  coordinate  points  for  two  depth  probes  and  one  surface  probe. 

3.  Basic  soil  moisture  data. 

Control  card. — The  control  card  contains  a  1  in  column  1,  which  allows  branching  from  the 
calling  routine  to  subroutine  MOIST  and  must  precede  all  soil  moisture  data. 

Tables.  —  Percentage  moisture  by  volume  is  obtained  from  calibration  curves  that  relate 
counts  as  a  percentage  standard  to  known  moisture  contents.  Given  a  specific  value  for  the  per- 
centage of  standard,  then  the  percentage  moisture  by  volume  may  be  determined  from  either  a 
calibration  table  or  an  algebraic  equation  of  the  relationship  between  percentage  standard  and 
percentage  moisture  content.  The  use  of  calibration  tables  has  the  advantage  of  versatility, 
especially  if  several  different  types  of  instruments  are  being  used,  each  of  which  has  a  different 
calibration  curve. 

Three  depth  moisture  probes  and  two  surface  moisture  probes  are  available  for  use  at  the 
Blacksburg,  Va.,  research  station.  These  probes  will  be  referred  to  hereafter  as  depth  probe  1, 
2,  or  3,  and  surface  probe  1  or  2.  Each  probe  has  a  unique  calibration  curve.  Calibration  tables 
have  been  developed  for  depth  probes  1  and  2,  and  surface  probe  1.  Two  linear  equations  of  the 
form  y  =  a  +  bx  were  found  to  adequately  define  the  calibration  curves  for  depth  probe  3  and 
surface  probe  2. 

The  program  has  been  designed  so  that  data  collected  from  five  instruments  may  be  proc- 
essed concurrently.  The  only  requirements  is  that  the  data  must  be  coded  to  agree  with  the  load- 
ing order  of  the  calibration  tables  (see  METER,  appendix  list  C2).  The  order  of  loading  of  the 
calibration  tables  must  always  be  depth  probe  1,  2,  and  surface  probe  1.  The  selection  of  which 
probe  is  to  be  1  or  2  is  arbitrary.  The  calibration  curves  defined  by  algebraic  equations  are 
fixed  and  can  only  be  changed  by  reprogramming  the  particular  statements  in  question. 

The  formats  for  the  three  calibration  tables  are  identical  and  the  information  contained  in 
each  table  is  illustrated  below.  Each  card  contains  10  five-digit  data  fields.  The  last  card  of 
each  table  must  contain  a  nine  in  column  76.  Decimal  points  must  always  be  punched. 


1-5 


10 


11-15 


16-20 


21-25 


26-30 


XXX.X 


XX.X 


XXX.X 


XXX.X 


XXX.X 


XXX.X 


DP(L,  1) 
DPN(L,  1) 
SP(L,  1) 


DP(L,  2) 
DPN(L,  2) 
SP(L,  2) 


DP(L  +  1,  1) 
DPN(L  +  1,  1) 
SP(L  +  1,  1) 


DP(L  +1,2) 
DPN(L  +1,2) 
SP(L+1,  2) 


DP(L+2,  1) 
DPN(L+  2,1) 
SP(L  +  2,  1) 


DP(L+2,  2) 
DPN(L+2,2) 
SP(L+2,  2) 


31-35 

36-40 

41-45 

46-50 

51-75 

76 

XXX.X 

XXX.X 

XXX.X 

XXX.X 

X 

DP(L  +3,1) 
DPN(L+3, 1) 
SP(L+3,1) 


DP(L  +  3,2) 
DPN(L  +  3,  2) 
SP(L  +  3,2) 


DP(L  +  4,  1) 
DPN(L  +  4,1) 
SP(L+4,  1) 


DP(L  +4,  2) 
DPN(L+4,  2) 
SP(L+4,2) 


Table 
identification 


NEND 
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Basic  data. — The  information  contained  in  the  basic  data  card  is  illustrated  below.  The  vari- 
able names  are  described  in  appendix  list  C2. 

1  2-5         6-7        8-9      10-11  13-18  19-22  23-29  30-34 


X 

XXXX 

XX         XX 

XX          XXXXXX 

XXXX 

XXXXXXX 

XXXXX. 

METER 
35-39 

IWD 

MO         ND 
40-44 

NYR        NSITE(I) 
45-49 

NTUBE(I) 
50-54 

ND1ND2(I) 
65 

COUNTS  (I) 
71-72           73-75 

XXXXX. 

XXXXX. 

XXXXX. 

XXXXX. 

X 

XX              XXX 

COUNTS  (I +  1)       COUNTS  (1+2)       COUNTS  (I +3)       COUNTS  (1  +  4)       KODE      NEND 

Order  of  Input 

The  input  data  must  be  loaded  as  follows  (also  see  figure  CI): 

1.  Cards  required  by  computer  residence. 

2.  Object  program. 


NUP 


—    SIBSYS   CARD 
CONTROL  CARD 


kl„g   order    (or 
ruy    be    th-ingci 


Figure  CI. — Schematic  diagram  illustrating  the  stacking  order  for  the  input  data  required  by  program  C.  The 
computer  residence  cards  are  those  required  by  the  IBM  7040/1401  installation  at  Virginia  Polytechnic  Institute, 
Blacksburg,  Va. 
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3.  Control  card. 

4.  Tables. 

5.  Basic  data. 

6.  Repeat  step  5  for  additional  groups  of  soil  moisture  data.  Steps  1  and  2  may  be  eliminated 
if  program  has  been  loaded. 

Data  Preparation 

Table  CI  has  been  designed  to  serve  as  both  a  field  note  sheet  and  program  code  sheet.  The 
readings  are  placed  in  their  appropriate  columns  as  they  are  being  taken.  This  procedure  elimi- 
nates unnecessary  effort  in  preparing  the  data  for  card  punching.  The  following  coding  must  be 
adhered  to; 

1.  METER  equals  1  when  using  depth  probe  1,  and  2  when  using  depth  probe  2.  The  calibra- 
tion curves  are  also  loaded  in  this  order. 

2.  KODE  must  be  one  of  the  integers  listed  at  the  bottom  of  the  code  sheet  (table  CI). 

3.  When  recording  notes,  the  procedure  is  as  follows:  Place  a  7  in  column  65,  skip  to  the 
next  line  and  record  notes  in  columns  13-64.  If  additional  lines  are  needed,  place  a  7  in  column 
65  and  continue  to  record  notes.  Column  65  will  be  blank  for  the  last  line  of  notes  for  any  particu- 
lar series  of  notes. 

4.  Place  a  9  in  column  72  of  the  last  data  card  for  intermediate  station  records.  The  last 
soil  moisture  data  card  must  also  contain  a  9  in  column  71  so  that  soil  moisture  processing  will 
be  terminated. 

The  data  given  in  table  CI  illustrate  the  above  coding  procedures. 

Output 

The  output  resulting  from  the  input  of  table  CI  is  given  in  tables  C2a  and  C2b.  Note  in  table 
C2a  that  all  field  records  are  retained  along  with  the  desired  output — percentage  of  soil  moisture 
by  volume.  The  percentages  of  soil  moisture,  along  with  the  necessary  identification,  are  placed 
on  magnetic  tape  for  permanent  storage.  An  example  listing  of  this  data  is  shown  in  table  C2b. 
The  data  is  stored  according  to  a  132-character  card  image.  The  output  for  the  permanent  stor- 
age tape  (S.SU01)  is  shown  below.  This  exact  format  may  be  used  to  read  data  from  the  storage 
tape.  Also  note  that  in  this  conjunction  a  $File  card  similar  to  the  one  shown  in  appendix  list  CI 
for  utility  unit  01  would  have  to  be  used. 


1-6 

7-12 

13-15 

16-19 

21-26 

29-31 

34-40 

41-47 

+XXXXX 

+  XXXXX 

+  XX 

+XXX 

XXXXXX 

XXX 

XXXXXXX 

+XXXXX. 

IWD 


MO 


ND 


NYR        NSITE(I)         NTEBE(I)       NTEMP(I)       COUNTS  (1) 


48-54 


55-61 


62-68 


69-75 


76-84 


85-93 


+  XXXXX. 


+  XXXXX. 


+  XXXXX. 


+  XXXXX. 


+  XXXXXXX.         +XXXXXX.X 


COUNTS  (2)         COUNTS  (3)         COUNTS  (4)         COUNTS  (5) 


SUMC 


AVG 


94-104 


105-116 


125-127 


128-132 


+  XXXXXXX.XX  +  XXXXXXXX.XX 


XXX 


+  XXXX 


PCSTD 


PCMOIS 


NUP 


NCONT 


32 


TABLE  CI.    --   Code    sheet    for   recording    soil  moisture   data    (input    for    subroutine 

MOIST,    program  C) 
Location  Cra.b  Creek  Sheet     /      of      / 
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Values     for    KOnF : 

O-  No   Notes    To   Follow 
I-  Depth    Probe    Reading 
2-  Surface    Reading 
3- Depth    Standard    Reading 
Notes    May    Be   Written    in   Columns  13-64 


4-Surface    Standard  Reading 
5-Check  Depth   Standard   Reading 
6- Check  Surface    Standard    Reading 
7-  Notes    To    Follow 
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TABLE  C2A.    --   SOIL  MOISTURE  OUTPUT  RESULTING   FROM  THE   INPUT  DATA  GIVEN   IN 
TABLE  CI   FORMAT  FOR  LISTING   BY   IBM   1401  ONLY    (S.SU06) 


SOIL  HGISTURE  OATA  •  KATERSHEO 

ENGINEER  I NG  '  BL  ACK.SBURG.  VA. 

PAGE 

1 

■  SHI  NO. 

MCI 

hAY 

YK. 

SITE 

rui. 

E    DtPTh 

COUNTS 

SUM 

AVERAGE   PC  STANUAKO 

PC  HOISTURE 

LIST 
N07 

H07 

NO. 
1 
2 

1307 
130? 

8 

8 

16 

1  6 

65 
66 

SUKH1,     Cl 
DEPTH 

t&H  ,  WARM 
STANDARD 

BEGAN 
13722. 

TIME  0830  E.D.T. 
13792.  13859. 

41373. 

13791.0 

1307 

1  307 

B 

8 

16 

16 

6  5 

6'. 

SB-3 

SM-3 

A 
A 

12IN 

24IN 

5095. 
10749. 

5089. 
10841. 

10184. 
21590. 

5092.0 
10795.0 

36.92 

76.28 

15.85 
37.37 

M07 

MO  7 

3 

4 

1307 
1307 

8 
8 

16 
16 

65 

SH-3 

A 
8 

48IN 

I2IN 

13676. 
6261. 

13590. 
6180. 

27266. 
12441. 

13633.0 
6220.5 

96.  d5 
45.11 

50.86 
19.64 

M07 
MO  7 

5 
6 

1307 
1307 

B 

8 

16 

16 

66 

66 

6>--3 
SM-3 

B 

e 

2*IN 

48IN 

11670. 

1 3796. 

11528. 
13893. 

23196. 

276U9. 

1 1699.0 
13644.5 

84.11 
100.39 

4  1.06 
51.93 

HO  7 
MO  7 

7 
8 

1307 
1307 

8 
8 

16 
16 

66 
6  6 

SUP F SCt 
SM-3 

STANDARD 
SURFACE 

9963. 
6895. 

10012.  1C108. 
6746. 

10063. 
1364  1. 

10027.7 

6820.5 

66.02 

17.61 

MO  7 

H07 

9 

10 

13C7 
1307 

8 

a 

16 
16 

t  5 

66 

SH-2 
SH-2 

A 

SURFACE 
12  IN 

66  1*-. 
1C066. 

6553. 
9875. 

13067. 
19941. 

6533.5 
9970.5 

65.15 
72.30 

15.42 
33.78 

H07 
H07 

11 
12 

1307 

1  3C7 

8 

a 

16 

lo 

66 

65 

SH-2 
SH-2 

A 

A 

24  IN 
48  IN 

12576. 
13049. 

12543. 
13106. 

25121. 
26155. 

12560.5 
13077.5 

91.08 
94.8  3 

45.55 
4H.10 

HO  7 
M07 

13 
14 

1  307 
13C7 

e 

e 

16 
16 

65 

66 

SH-2 
SH-2 

8 
B 

12IN 

2".  IN 

8351. 
13264. 

8528. 
13177. 

16879. 
26441. 

8439.6 
13220.5 

61.20 
95.86 

27.58 

4H.82 

HO  7 
H07 

15 

16 

1307 
1307 

e 

6 

16 

If. 

6  6 
66 

SH-2 
SH-1 

B 
A 

4fl[N 
1  2  I  N 

14537. 
6475. 

14460. 

6378. 

28997. 
13C53. 

14498.5 
6526.5 

105.13 
47.32 

55.40 
20.63 

H07 
HO  7 

17 

18 

1307 
1307 

8 
8 

16 

16 

66 
60 

SH-1 

SB-1 

A 

A 

24IN 
48  IN 

1)066. 
1160C. 

11 1  J?. 

11578. 

22196. 
23178. 

11099.0 
11589.0 

80.46 
84.03 

36.69 
41.02 

M07 
M07 

19 

20 

13G7 
1307 

8 

B 

16 

16 

65 

66 

SH-1 
SH-1 

B 

B 

12IN 
24IN 

4863. 
9543. 

4942. 
9527. 

9805. 
19C70. 

4902.5 
9535.0 

35.65 

69.14 

15.22 

31.96 

MO  7 
M07 

21 
22 

1307 
1307 

8 

e 

It 
16 

66 

6  6 

>>"-  1 
SH-1 

B 

1.8  IN 
SURFACE 

12495. 
6232. 

12614. 
62B9. 

25109. 
12521. 

12554.5 

6260.6 

91.  j) 
62.43 

45.52 
13.15 

H07 
H07 

23 
24 

1307 
1307 

8 
8 

16 

16 

t'. 
6  J 

SH-4 

SP-4 

A 

SURFACE 
12IN 

6614. 
9600. 

6959. 
9702. 

13773. 
193C2. 

6886.5 
9651.0 

68.67 
69.98 

16.34 
32.49 

M07 
H07 

25 

.■6 

1307 
1307 

8 

8 

It 
16 

6  6 

65 

SH-4 

SH-4 

A 

24  IN 
4BIN 

12997. 

13481. 

12971. 
13551. 

25968. 
27032. 

12984.0 
13516.0 

94.15 

98.01 

47.69 
5C.20 

H07 
MO  7 

27 
28 

1307 
1307 

a 

8 

16 
16 
16 

16 

65 
_65_ 
65 
65 

SM-4 
SH-4 
SH-4 

CK  SOR 

B 
_8 

a 

l«C. 
tPTh 
IHE 

12IN 
24  IN 

9640. 
12877. 

9911. 
12  969. 

19751. 
25636. 

9675.5 
1291B.0 

71.61 
93.67 

33.36 

47.34 

H07 
MO  7 

29 

30 

1 3o; 

1307 

8 
8 

4SIN 
STANDARO 

11926. 

9986. 

11981. 

23907. 
9986. 

11953.5 
9966.0 

86.68 

42.71 

HO? 
H07 

31 
32 

1307 
1307 

8 

8 

16 
16 

65 

£6 

CK  C 

ENC  1 

STANDARD 
U16E.0.T. 

13808. 

ANKLE  NO.  1  J.C.C. 

13808. 

13806.0 

H07 
MO  7 

33 
34 

TABLE  C2B.    --   SOIL  MOISTURE  OUTPUT  RESULTING    FROM  THE   INPUT  DATA 

GIVEN   IN   TABLE   Cl   FORMAT  FOR  PERMANENT  STORAGE    (S.SUOO) 


1307 

1  10  7 


12IN   5095. 
24  IN  1C749. 


5092.0 
.10795.0 


36. 72 

7R.26 


H07 
H07 


1307 
1307 
1307 

1307 
13C7 
1307 


1307 
1307 
1307 
J_307 
1307 
1307 


48IN  13676. 

12  IN  626  1. 

24IN  1167C. 

48IN  13796^ 

OIN  6895. 

01N  1514. 


13590. 
6160. 
11528. 

13  6  9  1. 
6  746. 
6553. 


27266. 
12441. 
2319b. 
27669. 
I  3641. 
13067. 


13633.0 
6220.5 
11599.0 
1384  4 . 5 
6620.5 
6533.6 


16.05 
45.  11 
64  .  1  I 
100.19 


66.02 
65.15 


17.61 
15.42 


12IN  10U66. 
24IN  12576. 
46IN  13049. 
12IN  b361. 
241N  13264. 
48IN_l45j7. 


9875. 
12543. 
13106. 

8528. 
1117  7. 
14*60. 


19941. 
25121. 
26155. 
16879. 
2644  1. 
26997. 


9970.5 
12560^5 
13077.5 

64  3J.5 
13220.5 
14498.6 


72.  JO 

91.06 

94.6  3 

_ 61.2C 

95.66 

1"6.  1  3 


33.76 
45.55 
48.10 
27.58 
4  6.62 
55.40 


~S07 
M07 
MO? 
nO?_ 
HOI 
MO  7 


MO? 
HO  7 
MO?" 
M07 
MO? 
MO  7 


1307 
131/ 
I  307 
1J307 
1307 
1307 


SH-1 

SH-1 


12 IM  6475. 

24IN  11066. 

48IN  116CC. 

1'IN  4663. 

24IN  9543/ 

46IN  12495. 


6576. 
11 132. 
11578. 

4942. 

952  7. 
12614. 


13053. 
22196^. 
23178. 
9805. 
190  70. 
2510". 


6526.5 
11099.0 
11589.0 
4902.6 
9535.0 
12554.5 


47.32 

HO. 46 
84.0  1 
35. >5 
69.14 
91  .03 


20.63 
38.69 
41.02. 
15.22 
11.78 
45.52 


h07 
MO  7 
M07 


1307 
1307 
1307 
1307 
1307 
1307 


8  16   65 


SH-1 
SH-4 


OIN  c.232. 

OIN  6814. 

12IN  9600. 

24IN  12997. 

48IN  13481. 

12IN  9b40. 


6289. 

6959. 

9702. 
12971. 
13551. 

9911. 


12521. 
13773._ 
19302. 
25966. 
27032. 
19751. 


6260.5 
6886.5 
"  9651.0 
12984.0 
13516.0 
9875.6 


62.4  3 
68.67 
69  .  98 
94.15 
98.01 
71.61 


13.15 
16.34 
32.49 
47.69 
50.20 
33.36 


93.67 

86.68 


47.34 
42.71 


MO? 
HQ7 
HO  7 
M07_ 
M07 


Input 


Subroutine  LDUSE 


The  input  for  this  routine  consists  of: 

1.  Control  card. 

2.  Field  weight  table. 

3.  Watershed  area  table. 

4.  Basic  data. 
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Control  card. — The  control  card  contains  a  2  in  column  1  which  allows  branching  from  the 
calling  routine  to  subroutine  LDUSE  and  must  precede  all  land-use  data. 

Field  weight  table. — The  procedure  to  be  followed  in  developing  the  field  weight  table  may  be 
grouped  into  the  following  steps: 

1.  Obtain  a  map  of  watershed  showing  individual  field  boundaries.  Aerial  photographs  are 
usually  the  best  source  of  this  information. 

2.  Use  a  transparent  overlay  (preferably  a  plastic  sheet  about  0.017-inch  thickness)  and 
outline  with  ink  the  major  fields  within  watershed  and  assign  field  numbers. 

3.  Subdivide  these  major  fields  by  land-use  practice.  This  will  remain  reasonably  stable 
with  time;  however,  changes  in  land  use  may  require  altering  the  original  major  field  and  sub- 
division boundaries  at  some  later  date. 

4.  Code  each  field  subdivision  following  the  key  listed  at  the  bottom  of  table  C3. 

5.  Obtain  reproduced  copies  of  the  overlay  and  preserve  the  overlay  for  use  as  a  base  map 
in  future  land-use  surveys. 

6.  Use  the  reproduced  prints,  cut  out  the  individual  subdivisions  and  weigh  each  of  the  nearest 
ten-thousandth  of  a  gram  (0.0001  gram). 

7.  Place  the  resulting  weight  values  on  a  code  sheet  similar  to  that  shown  in  table  C4.  If  the 
major  field  contains  only  one  land  use,  the  total  field  weight  will  be  placed  in  WTS(l).  When  more 
than  one  land  use  occurs,  WTS(l)  is  left  blank  and  the  field  weights  of  the  field  subdivisions  for 
the  respective  land  uses  are  placed  in  WTS  (2)  through  WTS  (7).  The  total  field  weight  becomes 
COMP. 

After  the  field  weight  table  has  been  developed,  it  should  be  saved  for  continued  use.  It  must, 
however,  be  updated  whenever  there  is  a  change  in  the  physical  dimensions  of  either  the  major 
field  or  its  subdivisions,  When  making  these  changes  use  the  same  reproduction  material  that 
was  used  to  develop  the  original  table.  After  updating  the  boundaries  of  a  major  field,  the  new 
weight  replaces  the  old  reference  weight.  The  boundaries  of  adjacent  fields  will  also  have 
changed  and  also  must  have  a  new  reference  weight  determined.  In  determining  the  new  reference 
weights,  the  ratio  of  the  sum  of  the  new  reference  weights  to  the  total  watershed  weight  must 
equal  the  ratio  of  the  sum  of  the  old  weights  to  the  total  watershed  weight.  The  analytical  formu- 
lation would  be: 

N 

EL 
WNi      =        £  WOi 

i=l    i  =1 


WT  WT 


Where: 


WNi  =  Weight  of  the  ith  subdivision  from  the  new  major  field. 
WOi  =  Weight  of  the  ith  subdivision  from  the  old  major  field. 
WT  =  Total  watershed  weight. 
N,  L  =  Number  of  subdivisions. 

i  =  Index  enumerating  individual  subdivisions. 
The  information  contained  in  the  field  weight  table  is  given  in  the  format  listed  below.  See 
appendix  list  C2  for  a  description  of  the  variables.  Each  card  may  contain  a  maximum  of  seven 
weights  (WTS). 


1-4 

9-11 

16-21   

52-57 

58-63 

66-67 

XXXX 

XXX 

XX.XXXX  -  - 

--XX.XXXX 

XX.XXXX 

XX 

IDW2  NFN2  WTS  (I) WTS  (I +6)  COMP  NEND 
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TABLE  C3.  --  Code  sheet  for  recording  land  use  data  (input  for  subroutine 
ih*r*e.CrcJt  LDUSE,  program  C) 

Sheet     /      o\_L- 


I  nrntinn  Crat>  Creek 
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Z 

tr 

>■ 
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z 
u. 
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OJ 

to 
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CO 
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_l 

Q 

Z 
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z 
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6 
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9 
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12 
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14 

15 

16 

17 

18 

19 

20 

21 
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24 

25 

26 

27 

28 
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80 
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9 
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6 
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0 

a 

G 

s 
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4 

/ 

3 

0 
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a 
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0 
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3 
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0 
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0 

9 

o 

a 

6 

g 

/ 

& 

4 

7 

z 

4 

i 

3 

0 

(r. 

a 

9 

0 

e 

G 

6 

4 

s 

o 

8 

/ 

3 

0 

t> 

o 

? 

0 

a 

G 

6 

4- 

£ 

1 

A 

1 

3 

0 

h 

0 

? 

0 

& 

G 

S 

4 

£ 

2 

4- 

1 

3 

0 

(, 

0 

9 

0 

8 

G 

£ 

A 

£ 

5 

4 

? 

1 

? 

0 

7 

0 

8 

2 

G, 

^G_ 

£ 

/ 

4 

G 

G, 

/ 

3 

0 

7 

o 

& 

z 

6 

G 

$ 

2. 

4 

J 

? 

0 

7 

0 

a 

a 

G 

G 

5 

3 

4 

6 

1 

.3 

0 

7 

0 

a 

z 

G 

G 

5 

4 

3 

1 

.r 

0 

7 

o 

8 

2 

G 

G 

£ 

£ 

3 

/ 

3 

0 

7 

0 

a 

a 

G 

(r 

£ 

7 

o 

4 

/ 

3 

c 

7 

0 

ft 

2_ 

6 

6 

£ 

7 

/ 

4 

1 

? 

0 

7 

0 

a 

2. 

G> 

& 

£ 

7 

2 

4 

/ 

? 

o 

1 

o 

a 

z 

6 

<b 

£ 

7 

3 

8 

) 

^5 

0 

7 

o 

a 

p. 

G 

t> 

S 

7 

4 

3 

1 

? 

0 

7 

o 

ft 

2 

G 

G 

3" 

7 

£ 

3 

/ 

J 

0 

7 

0 

e> 

2 

6 

G 

£ 

7 

6 

3 

J 

3 

0 

7 

o 

a 

2 

G 

G 

£ 

7 

7 

3 

? 

9 

KEY:    l-Small   Grain 
2-Corn 
3-Hay 


4-  Pasture 

5-  Tobacco 

6-  Woods 


7-  Idle  10-Cotton  13- 

8- Roads  1 1  -  Sorghum        14- 

9- Soybeans     12- Fallowed        15- 
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TABLE  C4.  --  Code  sheet  for  recording  field  weight  table  (for  subroutine 

Date  7-/Z-66  LDUSE,  program  C)  Sheets  of  _Z_ 


Q                      U-                              J- 
2                              $ 

CO                                              rO 

3 

5 

s 

5                    Z         O               3 

w                 Z        =>             * 

_     N    (O    »     0iO=     *    ^    ©    fft    °    " 

•£>    s     a.-    0* 

5    - 

■3 

<J 

CD  1  <T> 

D    - 

n  (ft 

r>    rfi 

n    >n    en 

t     tO  IP      tO  *0   10)  tO  h*  f*-  iS«  f*-  ^-  f~~  f--  <n 

1  2.0k       l        0  14  7 

2-I4.Z      LQ-b.           1 

12.06     i       oo<L5_ 

ooq_5      Lob          t 

I  306>       J         00£<f 

0_O  54      Lob           3 

110b      4        OOt£ 

0065      Lob           4 

£30b      5        05_'3_ 

05/3      i-Ob           5 

1  3_Q.b      b        0±&L 

04fl£       tofc            <c 
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Watershed  area.— The  watershed  area  in  acres  is  required  to  determine  the  number  of 
acres  in  a  given  land  use.  The  areas  for  all  watersheds  to  be  included  in  a  given  land-use  analysis 
are  loaded  at  the  same  time.  The  watershed  code  (I)  and  the  area  (acres)  are  placed  on  separate 
cards  according  to  the  format  below.  The  program  is  set  for  a  maximum  of  15  area  values; 


37 


however,  additional  storage  may  be  obtained  by  increasing  the  dimension  of  AREA.  Also  note  that 
decimals  are  not  required  and  a  9  must  be  placed  in  column  80  of  the  last  data  card  to  be  loaded. 
For  a  given  watershed,  I  has  the  same  numerical  value  as  ID2. 

1-2  4-9  80 


XX  XXXX.XX  X 

I  AREA  (I)  NEND 

Basic  data.— The  land  use  for  each  field  subdivision  defined  in  the  FIELD  WEIGHT  TABLE 
is  determined  from  field  surveys  and  coded  according  to  the  key  at  the  bottom  of  table  C3.  The 
land  use  for  two  watersheds  is  shown  in  abbreviated  form  in  table  C3.  These  data  constitute  the 
basic  input  for  the  subroutine  LDUSE. 

The  input  format  is  as  follows: 


1-2 

3-4 

5-6 

7-8 

9-10 

11-14 

15-16 

27-28 

79-80 

XX 

xx 

XX 

XX 

XX 

XXXX 

XX 

XX 

XX 

ID1         ID2  MO         ND         NYR  NFN  LUSE  (I) LUSE(I+6)  NEND 

Order  of  Input 

The  order  of  input  must  be  as  follows  (also  see  fig.  CI): 

1.  Cards  required  by  computer  residence. 

2.  Objective  deck  (program). 

3.  Control  card. 

4.  Field  weight  tables. 

5.  Watershed  area  table  (1-15  cards). 

6.  Basic  data. 

7.  Repeat  step  6  for  additional  records. 

Data  Preparation 

Several  precautions  to  be  taken  while  coding  and  loading  the  data  for  this  program  are  as 
follows; 

1.  The  basic  data  must  be  loaded  in  exactly  the  same  order  as  the  field  weight  table. 

2.  The  field  weight  table  and  coded  land-use  data  (basic  data)  must  have  the  same  number 
of  fields  and  these  field  numbers  must  be  in  the  sequence  1,  2, ,  n. 

3.  The  watershed  area  table  contains  all  areas  that  will  be  required  during  the  processing 
of  the  land-use  data  for  example,  if  10  watersheds  are  being  summarized,  then  10  cards — one 
area  per  card — will  be  required.  Note  that  I  of  the  watershed  area  table  must  be  synonymous  to 
ID2  of  basic  data  for  a  given  watershed.  The  limits  are:    0  <  I&ID2  ^15 

4.  If  the  data  from  a  series  of  watersheds  are  being  processed,  NEND  =  9  for  intermediate 
records  and  NEND  =  99  for  the  last  record.  Note  that  these  codes  are  placed  only  in  the  last 
basic  data  card.  For  all  remaining  cards  NEND  is  left  blank. 

Output 

The  output  consists  of  a  summary  of  the  percentage  of  the  total  watershed  area  in  a  specific 
land  use.  The  output  resulting  from  the  input  given  in  table  C3  is  shown  in  table  C5. 

Subroutine  WIND 

Input 

Input  to  the  anemometer  reduction  program  consists  of  a  control  card,  a  parameter  card, 
basic  data  cards,  and  a  trailer  card. 

Control  card. — The  control  card  contains  a  3  in  column  1  which  allows  branching  from  the 
calling  routine  to  subroutine  WIND  and  must  precede  all  anemometer  data. 
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Parameter  card. — The  parameter  card  contains  the  last  two  digits  of  the  year  and  station 
identification  according  to  the  following  format. 

1-2  3-68 


XX.  (See  note) 



YR  IDENT  (I) 

Note:  Columns  3-68  are  reserved  for  appropriate  station  identification,  for  example,  CRAB 
CREEK  (WIND),  BLACKSBURG,  VA. 

Basic  data. — Basic  anemometer  data  collected  at  the  Crab  Creek  watershed,  Blacksburg,  Va., 
are  given  in  table  C6.  These  data  may  be  key-punched  directly  from  this  code  sheet  according  to 
the  format  listed  below.  Decimals  are  not  punched. 


1-2 

3-4 

6-7 

8-9 

12-17 

19 

79-80 

XX 

XX 

XX. 

XX. 

XXXXX.X 

X 

XX 

MON  NDAY  HR  TMIN  AMON  KODE  NEND 

Trailer  card. — The  trailer  card  is  used  to  terminate  processing  and  contains  either  a  9  or  99 
in  columns  79-80. 

79-80 


XX 

NEND 

Order  of  Input 

The  order  of  input  is  as  follows  (also  see  fig.  CI): 

1.  Cards  specified  by  the  computer  residence. 

2.  Control  card. 

3.  Parameter  card. 

4.  Basic  data  cards. 

5.  Trailer  card. 

6.  Repeat  steps  3  to  5  for  additional  station  records. 

Output 

Table    C7   illustrates    the  type  and  form  of  the  output  from  this  program.  The  information 
contained  in  each  line  is  given  below. 


2-4                5-7 

8-10 

11-16                        17-27 

28-36 

37-46 

+XX              +XX 

+  XX 

+XXXXX          +XXXXXX.XXXX 

+  XXXXXX.X         +XXXXXXX.X 

MON           NNDAY 
47-55 

NYR 

56-66 

LTIME                         TI 

67-75                  76-83 

AMON 
84-95 

DT 
96-103 

+XXXXX.XX      +XXXXXX.XXXX      +XXXXXX.X      +XXXX.XX 

+XXXXXX.XXXX 

+XXXXX.X 

AV  STI  SD  AVM  STIYR  SDYR 

104-111  114-119 


+XXXX.XX  +XXXX 

AVYR  NUM 


Note:    Positions  56-83  contain  data  only  for  the  end  of  month  summary,  and  positions  84-111 
contain  data  only  for  the  end  of  year  summary. 

40 


TABLE   C6 .    --   Code    sheet    for   recording   anemometer   data    (input    for 

subroutine  WIND,    program  C) 

Dntp  7-/0-6,6  Sheet_z_of     / 


Location  Crab  Creole 
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Tabulated    by 


Checked    by. 
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TABLE   C7.    --  ANEMOMETER  OUTPUT  RESULTING    FROM  THE   INPUT  DATA  GIVEN   IN   TABLE  C6 


CRAB  CREEK  (klNC)   BLiCKSBURu,  VA 


ANEMOMETER  CCMPUTAT IONS • WATERSHED  ENG I NEER I NG ' BL ACKSBURG , VA. 


DATE 
MO  DA  YR 


TIME 
INTVIHRS) 


ANEMOMETER   CIST  TRV  AVG  RATE 
DIST(MILES)  FOR  INTV   IMPH) 


TIME  INTV  DIST  TRV  AVG  KATE  TIME  INTV  OIST  TRV  AVG  RATE  SEQ. 
MONTH       MONTH    MONTH       YEAR       YEAR       YEAR       NO 


1  -1-65 
1  -4-65 

0 
913 

0.0000 
81.2167 

4000.0 
4270.1 

0.0 
270.1 

O.OC 

3.33 

1 
2 

1-11-65 
1-18-65 

910 
1018 

167.95CC 
169.1333 

4720.5 
5270.7 

INSTRUEMENT 

5S0.2 

FAILURE 
3.25 

3 

4 

1-25-65 
1-31-65 

912 

24C0 

166.9000 
158.8CCC 

5949.9 
O707.8 

679.2 
714.2 

4.07 
4.5C 

5 
6 

576.0500 

2213.7 

3.84 

7 

2  -1-65 

943 

9.7167 

6707.8 

43.7 

4.50 

8 

2  -8-65 
2-15-65 

530 

1030 

163.7833 
173.0C00 

7271.7 
/844.0 

563.9 
572.3 

3.44 

3.31 

9 
10 

2-22-65 
2-28-65 

940 
24C0 

167.1667 
158.3333 

O505.0 
9338.0 

661.0 
787.6 

3.95 
4.97 

11 
12 

3  -1-65 

908 

9.1333 

9338.0 

45.4 

4.97 

672.0000 

2628.5 

3.91 

13 

14 

3  -8-65 
3-14-65 

926 
1406 

168.3C0C 
148.6667 

9853.3 
10357.1 

515.3 
503.8 

3.C6 
3.39 

15 
16 

3-22-65 
3-29-65 

945 
1407 

187.6500 
172.3666 

11141.8 
11908.7 

784.7 
766.9 

4. IB 
4.45 

17 

18 

3-31-65 

24C0 

57.8834 

U491.3 

207.1 

3.58 

744.0000 

2823.3 

3.79 

19 

20 

4  -5-65 
4-12-65 

856 
1357 

104.9333 
173.0167 

12491.3 
13148.0 

375.5 
656.7 

3.58 

3.8C 

21 
22 

4-19-65 
4-26-65 

1451 
951 

168.9CCC 

163.0000 

14008.6 
14466.6 

8t0.6 
458.0 

5.1C 
2.81 

23 
24 

4-30-65 

24C0 

110.1500 

14937.4 

310.3 

2.82 

720.0000 

2661.0 

3.70 

25 
26 

5  -3-65 
5-10-65 

9CC 
101C 

57.0CCC 
169. 1667 

14937.4 
15142.7 

160.5 
205.3 

2.82 
1.21 

27 
28 

5-17-65 
5-24-65 

1046 
12C0 

168.6000 
169.2333 

13406.1 
15554.7 

263.4 
148.6 

1.56 
0.88 
0.97 
1.31 

29 

30 

5-31-65 
5-31-65 

918 
24C0 

165.3C00 
14.7C00 

13714.9 
15936.5 

160.2 
19.2 

31 

32 

744.0000      957.3      1.29 


6  -7-65   1045 


6-14-65 
6-21-65 


930 

81C 


166.75CC 

166.6666 


15936.5 
lcC84.5 
16285.1 


6-28-65 
6-30-65 


800 
24C0 


167.8334 

64.0000 


16459.5 
U631.3 


8-31-65   24C0 


36.5C0C   1/768.7 


9  -3-65 

_?ri2z°5_ 

9-20-65 
9-27-65 


920 
10C8 


57.3333 
168.BCCC 


17768.7 
1 7952.0 


1022 

959 


240.2333 
167.6166 


16200.1 
16419.4 


67.8 

~f06.1T 

UJ.vL 

248.1 

219.3 


1.86 

T.~86~ 
1.09 
1.01 
1.31 


744.00CC   ._  591.3     0.79 


33 
34 


35 

36 


37 
38 


7  -5-65 

958 

105.9666 

16631.3 

107.1 

1.01 

720.0000 

79C.  1 

1.10 

39 
40 

7-12-65 
7-19-65 

1150 
1505 

169.8667 
171.2500 

16787.5 
16898.1 

156.2 
110.6 

0.92 
0.65 

41 
42 

7-26-65 
7-31-65 

1050 

24C0 

163.750C 
133.1667 

16977.5 
17097.8 

79.4 

93.4 

0.48 
0.70 

43 

44 

8  -2-65 

1426 

38.4333 

1  7C97.8 

26.9 

0.7C 

744.0000 

546.  7 

0.73 

45 
46 

8  -9-65 
8-16-65 

738 
843 

161.2C0C 
169.0833 

17173.0 
17261.2 

75.2 

88.2 

0.47 

0.52 

47 

48 

8-23-65 
8-30-65 

915 
1130 

168.5334 
170.2500 

17398.1 
17594.4 

136.9 
196.3 

0.81 
1.15 

49 

50 

51 

52 
53 
54 
55 
56 


9-30-65   24C0 


86.0167   1B758.7 


10  -4-65 
10-11-65 


925 
955 


81.4166 
168.5000 


10-18-65 
10-25-65 


925 
1242 


167.5C00 
171.2833 


18758.7 
19053.3 
19232.2 
19604.1 


174.3 

165.  C 
294.6 
178.9 
371.9 


2.C3 

2  76  3 
1.75 
1.07 
2.17 


720.00CO     931.5     1.29 


10-31-65   2400    155.3000   19973.4 


-1-65 
-8-65 


904 
919 


9.0667 
16B.25CC 


11-15-65 
11-22-65 


1055 
1125 


169.6C00 
168.5000 


1^973.4 

_20252.4 

2U541.6 

21063.9 


348.9 

20.4 
279. C 
289.2 


2.25 

2.25 
1.66 
1.71 
3.1C 


744.0000    1359.3     1.83 


63 
64 
65 
66 
67 
68 


11-29-65 
11-30-65 


937 
24CC 


166.2C00 
38.3834 


216e3.6 
22172.8 


619.7 
112. C 


129.2000 


12-13-65 

12-20-65 


940 
940 


168.4667 

168.0CC0 


2<:172.8 
22719.2 
23086.7 


377.2 
546.4 
367.5 


3.73 
2.92 

2.92 
3.24 
2.19 


720.C0CC    1842.6     2.56 


69 

JJL 

71 

72 
73 
74 


12-22-65 
12-30-65 


141C 
911 


52.5000 
187.0166 


12-31-65      24C0 


38.8168 


2J190.6 
2J808.7 
23924.5 


103.9 
618.1 
1 15.  8 


1.98 
3.31 
2.98 


744.00C0    2128.9 2.66^ 


75 

77 

78 


8592.0499  19474.1      2.27 
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Subroutine  TEMP 

Input 

The  input  for  this  routine  consists  of  one  control  card,  one  parameter  card,  and  basic  data 
cards. 

Control  card. — The  control  card  contains  a  4  in  column  1,  which  allows  branching  from  the 
calling  routine  to  subroutine  TEMP  and  must  precede  all  maximum-minimum  temperature  data. 

Parameter  card. — The  parameter  card  contains  the  year  of  record  and  station  identification 
and  must  always  precede  each  station  record.  The  form  is  as  follows: 

1-2  3-68 


XX.  (See  note) 

YR  ID  (I) 

Note:    Columns  3-68  are  reserved  for  station  identification  or  location,  for  example,  CRAB 
CREEK,  VA. 

Basic  data. — The  basic  data  consist  of  daily  maximum  and  minimum  temperature  readings 
arranged  according  to  the  following  format: 


1-2 

3-4 

6-8 

10-12 

79-80 

XX 

XX 

XXX. 

XXX. 

XX 

MO  ND  AMAX(MO,ND)  AMIN(MO,ND)  NEND 

Data  Preparation 

Data  are  placed  on  the  code  sheet  illustrated  by  table  C8  as  they  are  read  in  the  field  or  are 
being  recorded  from  charts  in  the  office. 

The  following  coding  must  be  adhered  to; 

1.  The  last  two  digits  of  the  year  must  be  placed  in  columns  1-2  of  the  parameter  card.  The 
remaining  identification  is  arbitrary.  This  card  precedes  each  year's  record. 

2.  If  more  than  1  year's  record  is  to  be  processed,  place  a  9  in  column  80  of  the  last  data 
card  of  the  intermediate  station.  The  last  card  of  the  last  station  will  contain  a  99  in  columns 
79-80. 

The  maximum- minimum  temperature  data  for  Crab  Creek  watershed  are  given  in  abbreviated 
form  in  table  C8  to  illustrate  data  preparation. 

Order  of  Input 

The  input  data  must  be  arranged  in  the  following  order  (also  see  fig.  CI): 

1.  Cards  specified  by  computer  residence. 

2.  Objective  deck  program. 

3.  Control  card. 

4.  Parameter  card. 

5.  Basic  data. 

6.  Repeat  steps  4-5  for  additional  records. 

Output 

The  output  from  this  program  is  listed  directly  from  the  IBM  7040  computer  by  an  IBM  1401 
data  processing  machine.  Typical  output  is  presented  in  table  C9. 
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TABLE   C8.    --   Code    sheet    for   recording  maximum-minimum   temperature   data 

(input    for    subroutine   TEMP,    program  C) 
Location£V<iA  Creek  Date  7-/3- 6(0  Sheet     '    of      / 


MO 

ND 

AMAX(MO.ND) 

AMIN(MO.ND) 

NEND 

1 

2 

3 

4 

6 

7 

e 

10 

!  1 

12 

79 

80 

0 

/ 

0 

/ 

3 

7 

3 

0 

O 

/ 

0 

2 

£ 

6 

3 

2- 

0 

/ 

3 

O 

2. 

7 

/ 

O 

0 

/ 

3 

1 

2 

0 

- 

2 

0 

2. 

0 

1 

2 

7 

0 

0 

2 

0 

2 

2 

7 

7 

: 

0 

8 

/ 

6 

? 

2 

£ 

9 

0 

8 

/ 

7 

? 

2 

6 

7 

0 

& 

/ 

8 

9 

O 

& 

7 

J 

2 

2 

8 

4 

6 

2 

& 

J 

Z. 

2 

? 

S 

0 

2 

4 

I 

2 

3 

O 

6 

2 

3 

O 

/ 

2 

3 

/ 

£ 

4 

3 

6 

? 

7 

Tabulated    by_ 


Checked    by. 
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TABLE   C9.    --  MAXIMUM   -  MINIMUM  TEMPERATURE   OUTPUT  RESULTING    FROM  THE 
INPUT  DATA  GIVEN   IN  ABBREVIATED  FORM  IN   TABLE   C8 


CRIB  CREEK, VA. 
YE»R   1965 

NAXIMUM-MIN 

IMUM  TEMPERATURE  COMPUTATIONS' 

hATERSHEO  ENGINEER  I NG' BIACKSBURG, VA. 

DATE 

JAN. 

FEB. 

MAR. 

APR. 

Ha<  1  MUMS 
MAY     JUNE 

JULY 

AUG. 

SEPT. 

OCT. 

NOV. 

DEC. 

1 

2 

39.0 

68.0 

27.0 

27.0 

63.0 
49.0 

47.0 
46.0 

80.0 
78.0 

81.0 
62.0 

78.0 
78.0 

81.1 
74. C 

75.0 
70.0 

76.0 
67.0 

50.0 
60.0 

39.0 
53.0 

3 

4 

!9.0 
45.0 

23.0 
27.0 

57.0 
45.0 

52.0 
51.0 

85.0 

8  3.0 

74.0 
63.0 

80.0 
79.0 

76.0 
85.0 

70.0 
70.0 

68.0 
53.0 

71.0 
63.0 

43.0 
39.0 

5 
6 

50.0 
52.0 

3  8.0 
59.0 

33.0 
30. C 

70.0 
70.0 

78.0 
82.0 

70.0 
82.0 

63.0 
85.0 

84.0 
88.0 

68.0 
70.0 

58.0 
63.0 

56.0 
66.0 

52.0 
45.0 

7 
8 

52.0 

63.0 

54.0 
65.0 

41.0 
44.0 

75.0 
70.0 

75.0 
78.0 

80.0 
80.0 

82.0 
85.0 

85.0 
81.0 

77. 
83.0 

53.0 
64.0 

67.0 
64.0 

35.0 
51.0 

9 
1C 

59.0 
42.0 

52.0 
57.0 

39.0 
36.0 

68.0 
69.0 

83.0 
84.0 

82.0 
86.0 

66.0 
84.0 

60.0 
76.0 

84.0 
87.0 

61.0 
55.0 

60.0 
45.0 

56.0 
55.0 

1  1 
12 

36.0 
44.0 

63.0 
61.0 

40.0 
45.0 

65.0 
75.0 

BC.C 
71.0 

79.0 

60.0 

78.0 
75.0 

60.0 
66.0 

77.0 
68.0 

1 .'  .  0 
64.0 

50.0 
48.0 

14.0 
61.0 

13 
1* 

44.0 
30.0 

49.0 
28.0 

49.0 
51.0 

56.0 

60.0 

74.0 
76.0 

78.0 
76.0 

84.0 
85.0 

66.0 
86.  C 

7  6.C 
80.0 

62.0 
72.1 

61.0 
57.0 

64.0 
44.0 

15 
16 

26.0 
21.0 

41.0 
47.0 

51.0 
59.0 

60.0 
53.0 

78.0 
82.0 

61.0 

54.  C 

81.0 
84.0 

89.0 
92.0 

83.0 
82.0 

I:,  j 
75.0 

5b. 0 
60.0 

48.0 
46.0 

17 
16 

21.0 
24.0 

47.0 
56.0 

46.0 
65.0 

67.0 
76.0 

80.0 
76.0 

70.0 
66.0 

85.0 

81.C 

92.0 
90.0 

80.0 
64.0 

62.0 
60.0 

58.0 
36.0 

44.0 
40.0 

19 

20 

32.0 
40.0 

46.0 
47.0 

45. C 
31.  C 

56.0 
62.0 

79.0 

7t  .0 

72.0 
80.0 

62.0 
76.0 

86.0 
85.0 

84.0 

78.1 

66.0 
66.0 

49.0 
56.0 

36.0 
31.0 

21 
22 

49.0 
59.0 

56.0 
29.0 

33.0 
50.0 

70.0 
70.0 

7C.0 

7 9  .  C 

81.0 
84.0 

60.0 
65.0 

70.0 

8  i  .  C 

62.0 
80.0 

61.0 
69.0 

48.0 
50.0 

36.0 

23 
2* 

58.0 
57.0 

44.0 
35.0 

64.0 
58.0 

80.0 
63.0 

83.0 
83.0 

66.0 
79.0 

68.0 
90.0 

78.0 
78.0 

72.0 
72.0 

56.0 
40.0 

53.0 
48.0 

9m.  ; 
56.0 

25 

26 

51.0 

64.0 

39.0 

2  3.r 

44.  C 

66.1 

48.  0 
75.0 

66  . : 
86. 0 

72. C 
72.0 

86.0 

6  4  .  C 

78.0 
82.0 

60.0 

t  7. 

54.0 
63.0 

44.0 
58.0 

55.0 
36.0 

27 
28 

39.0 
45.0 

52.0 
62.0 

5  3 .  ( 
65.0 

64.0 
48.0 

82.0 
80.0 

72.0 
86.0 

83.0 

e  4 .  o 

8  5.C 
79.0 

6  2.( 
58.0 

60.0 
50.0 

58.0 
50.0 

4  .'  .  0 

46.0 

29 

30 

38.0 
27.0 

62.0 
52.0 

5  9  .  C 
71.0 

68.0 
70.0 

86.0 
61.0 

76. 
79.0 

68.0 
72.0 

72.0 
66.0 

45.0 

t4 .  :■ 

36.0 
32.0 

50.0 
62.0 

31 

AVERAGE 

20.0 
42.8 

44.8 

52.0 

49. C 

63.2 

77.0 

7t.s 

76.5 

74.0 
82.0 

74.0 
61.6 

74.7 

65.0 
62.0 

il.1 

64.0 

4  8., 

MAXIMUM 

AVERAGE  OF  MAXIMUM 

64.0 
31.0 

65.0 
32.5 

66.  C 
37.0 

80.0 
51.5 

B6.0 
66.0 

66.0 
67.0 

90.0 
73.0 

92.0 
66.0 

87.0 
61.0 

76.0 
47.0 

M. 
44.5 

64.0 
39.5 

OAVS  MAXIMUMS  OCCURRED 

26 

8 

26 

23 

25 
26 

10 
23 

24 

16 
17 

10 

1 
15 

3 

11 
13 

28 
29 

31 

CRAB  CREEK. VA. 
YEAR   1965 

MAXIMUM-MINIMUM  TEMPERATURE  COMPUTATIONS' 

MATER  SHED  ENGINEERING'BLACKSBURG.VA. 

DATE 

JAN. 

FEB. 

MAR. 

APR. 

MINIMUMS 
MAY    JUNE 

JUL  r 

AUG. 

SEPT. 

OCT. 

NGV. 

DEC. 

1 
2 

30.0 
32.0 

0.0 
7.0 

28.0 
31.0 

29.0 
26.0 

50.0 
58.0 

54.0 
56.0 

59.0 
56.0 

62.0 
59.0 

54.0 
51.0 

52.0 
44.0 

40.0 
32.0 

15.0 

2  i  .  0 

3 

4 

28.0 

26.0 

4.0 
9.0 

32.0 
33. C 

23. C 
38.0 

54.0 

5  5.0 

54.0 
54.0 

65.0 
63.0 

53.0 
56. C 

53.0 
50.0 

44.0 
36.0 

39.0 

3  4  .  0 
26.0 

5 
6 

25.0 
36.0 

11.0 
28.0 

24.0 

2  2  .  C 

36.0 
54.0 

57.0 
6C.0 

56.0 
57.0 

61.1 
60.0 

56.0 
60.0 

57.0 
54.0 

30.0 
28.0 

32.0 
33.0 

26.0 
26.0 

7 
8 

31.0 

42.0 

44.0 

52.0 

27. C 

30. 0 

53.0 
47.0 

60.0 
56.0 

61.0 
63.0 

65.i 
64.0 

63.0 
65. C 

49.0 

5C  . 

45.0 
43.0 

37.0 

36.0 

22.0 
20.0 

9 

10 

4  2.0 
28. 0 

43.0 
40.0 

31.0 
23.0 

48.0 
42.0 

59.0 
60.0 

63.0 
61.0 

64.0 
64.0 

66.0 
60.0 

57.1 
55.0 

39.0 
41.0 

44.0 
38.0 

28.0 
38.0 

11 
12 

25.0 
23.0 

51.0 
49.0 

20.0 
28.0 

50.0 
53.0 

58.0 
52.0 

63.0 
64.0 

64.0 
63.0 

56.0 
58.0 

oi.C 
63.0 

38.0 
35.0 

38.0 
43.0 

34.0 
4  8.0 

13 
14 

26.0 
18.0 

27.0 
21.0 

22.0 

2  5  . 0 

42.0 

38. C 

53.0 

48.  0 

60.0 
56.0 

60.0 
65.0 

63.0 
67.0 

63.0 
60.0 

26.0 
39.0 

44.0 

40. C 

4  !    .     > 

37.0 

15 

16 

11.0 
15.0 

17.0 
23.0 

26. C 

30. C 

4  ).0 
39.0 

5  2.0 
59.0 

52.0 
50.0 

66.0 
62.0 

67.0 
69.0 

63.0 
63.0 

41.0 

4  4.0 

32.0 
48.0 

36.0 
40.0 

17 

18 

9.0 
14.0 

34.0 
36.0 

31.0 
32.0 

34.0 
49.0 

61.0 

58.0 

50.0 
48.0 

58.0 
59.0 

67.0 
67.0 

62.0 
62.0 

44.0 
41.0 

26.0 
22.0 

30.0 
30.0 

19 

20 

10.0 

21  .0 

16.0 
13.0 

31.0 
14.0 

44.0 
42.0 

57.0 
57.0 

48.0 
52.0 

61.0 
60.0 

65.0 

64. L 

60.0 
60.0 

44.0 
50.0 

34.0 
27.0 

20.0 
19.0 

21 
22 

24.0 
31.0 

24.0 
15.0 

8.0 
22.0 

39.0 
51.0 

60.0 
58.0 

54.0 
59.0 

60.0 
61.0 

62.0 

6  7.0 

60.0 
64.0 

53.0 
51.0 

37.0 
40.0 

24.0 
26.0 

23 
24 

45.0 
40.0 

18.0 
25.0 

(7.0 
44. C 

52.0 
45.0 

59.0 
61.0 

61.0 
64.0 

66.0 
66.0 

64. C 

62. C 
52.0 

40.0 
35.0 

32.0 
29.0 

31.0 
41.0 

25 
26 

37.0 
39.0 

16.0 
15.0 

35.0 
)5.0 

42.0 

44.0 

63.0 

6  2 .  c 

57.0 

53.0 

71.0 
67.0 

62.0 
64. C 

4  1.0 
35.0 

28.0 
29.0 

34.0 
40.0 

26.0 
22.0 

27 
28 

20.0 
19.0 

19.0 
34.0 

,'  9  .  0 
37.0 

4  5.0 
43.0 

64  .0 
56.0 

57.0 
61.0 

67.0 
62.0 

64.0 
51.0 

4  3  .  ' 

46.0 

33.0 
30.0 

36.0 
32.0 

17.0 
26.0 

29 
30 

23.0 
10.0 

52.0 
34.0 

42.0 
45.0 

49.0 
46.0 

64.0 
63.0 

62.0 
56.0 

40. 0 
4  2  .  C 

48.0 
48.0 

20.0 

18.0 

21.0 
18.0 

24.0 

(O.J 

31 

AVERAGE  OF  MINIMUM 

-2.0 
25.1 

24.7 

26.0 
29.2 

42.6 

48.0 
56.6 

57.2 

61.0 
62.6 

53. ( 
60.7 

55.0 

30.0 
37.9 

34.4 

36.0 
29.0 

MINIMUM 

AVERAGE  OF  MAXIMUM 

-2.0 
31.0 

0.0 
(2.5 

8.0 
37.0 

23.0 
51.5 

46.  ' 
66.0 

48.0 
67.0 

56.0 
73.0 

40.0 
66.0 

35.0 
61.0 

18.0 
47.0 

18.0 
44.5 

15.0 
39.5 

OAYS  MINIMUMS  OCCURRED 

31 

1 

21 

3 

30 

18 
19 

2 

29 

26 

30 

30 

1 
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PROGRAM  D  (UPDATE  PROGRAM) 

Program  Features 

The  update  program  was  developed  to  allow  easy  reference  and  handling  of  data  on  magnetic 
tape,  the  transfer  of  data  from  tape  to  tape,  and  the  transfer  of  data  from  cards  to  tape.  The 
program  may  be  used  to  process  four  separate  record  lengths:  (1)  90-character  records, 
(2)  131-character  records,  (3)  80-character  records,  (standard  80-column  punchcard),  and 
(4)  132-character  records.  Multiple  tapes  may  be  merged,  rewritten,  or  corrected  and  the 
corrected  data  placed  on  multiple  output  tapes. 

A  listing  of  the  source  program  and  a  detailed  description  of  the  program  variables  are 
given  in  appendix  lists  Dl  and  D2. 

Input 

The  input  to  this  program  consists  of  parameter  cards  and  basic  data,  which  may  be  on 
either  magnetic  tape,  punchcards,  or  both. 

Parameter  Card 

The  format  for  the  parameter  card  follows: 


1-3 

4-8 

9-11 

12-16 

17-19 

20-23 

24-25 

26 

27 

28 

29 

XXX 

XXXXX 

XXX 

XXXXX 

XXX 

XXXX 

XX 

X 

X 

X 

X 

UPB1   UPB2   UPE1   UPE2   UPCODE   NUMBER   INCR   NFL   NFOR   NEND   NC 

Note;    See  the  input  section  of  appendix  list  D2  for  definition  of  variables. 

A  code  sheet  to  facilitate  the  preparation  and  keypunching  of  update  parameter  card  data 
has  been  prepared  and  is  depicted  by  table  Dl.  The  data  shown  in  this  table  illustrate  the  coding 
required  for  the  update  example  that  is  discussed  in  detail  starting  on  page  51. 

Basic  Data 

The  basic  input  data  will  be  data  from  programs  A,  B,  or  80-character  output/input.  Refer 
to  page  12  and  page  28  (storage  tape  S.SU00)  for  the  input  format  if  data  from  programs  A  and  B 
are  used.  During  the  update  process  all  data  are  rewritten  in  the  exact  format  of  the  input; 
consequently,  when  corrections  are  to  be  made,  the  data  must  be  placed  on  punchcards  in 
exactly  the  same  form  that  it  appears  on  magnetic  tape.  For  the  90-,  13 1-,  and  132-character 
records,  two  cards  are  required  to  represent  one  record.  The  format  for  these  three  records 
and  the  data  contained  in  each  field  are  listed  below.  All  decimals  and  negative  signs  must  be 
punched.  The  position  for  the  positive  sign  is  normally  left  blank. 

90-character  record — precipitation. — 
First  card— KODE  =  0 
1-4  6-7  8-10  11-13  14-16  17-24  25-34  35-42 


XXXX           XX             +  XX 

+  XX             +XX          +XX.XXXX        +XXXX.XXXX 

+  XX.XXXX 

IWID         IGAGE        MONTH 
43-50                   51-58 

NDAY        NYEAR                HR                            TI 
59-66                   67-74                     77 

AI 

+XX.XXXX        +XX.XXXX 

+  XX.XXXX         +XX.XXXX               X 

ACP  STAC  DAC  AMAC  LTYPRE 
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TABLE  Dl .    --  Code   sheet    for  recording   update   parameter  card   data 

(input    for  program  D) 
Dote  7-8-<oC>  Sheet     -Z 


of    J- 


CD 

a. 

CM 
DO 

Q. 

3 

Ld 
Q. 

3 

CNJ 

a. 

3 

Ld 

O 

o 
o 

OL 

DC 

iLl 

CD 

5 

Z 

o: 

z 

u. 

z 

cc 
o 

z 

o 

z 

Ld 

Z 

z 

i 

2 

3 

4 

5 

e 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

— 1 
20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

P 

0 

4 

/ 

£_ 

/ 

0 

7 

£ 

0 

/ 

/ 

8 

P 

/ 

2 

/ 

P 

/ 

2 

3 

o 

o 

/ 

/ 

£_ 

J 

2 

5 

0 

/ 

P 

/ 

2 

3 

o 

1 

3 

/ 

P 

/ 

2 

5 

o 

2 

P 

/ 

2 

9 

o 

o 

1 

/ 

P 

/ 

3 

/ 

P 

/ 

3 

8 

3 

3 

2 

/ 

P 

1 

4 

1 

P 

2 

0 

/ 

0 

1 

2 

1 

/ 

a 

P 

2 

I 

1 

P 

3 

7 

? 

8 

8 

1 

/ 

7 

P 

0 

4 

1 

P 

0 

4 

7 

3 

Z 

f 

/ 

8 

£_ 

0 

5 

/ 

£_ 

0 

5 

7 

8 

5 

P 

4 

o 

/ 

2 

Z 

/ 

P 

o 

<o 

I 

P 

2 

O 

/ 

1 

1 

1 

1 

/ 

8 

P 

p 

1 

/ 

P 

3 

a> 

6 

7 

7 

/ 

/ 

a 

£_ 

3 

7 

1 

P 

3 

7 

? 

0 

8 

2 

/ 

? 

Tabulated    by. 
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Second  card— KODE  =  0 
1-2  5-7  8-12 


+  X 


XXX 


+  xxxx 


KODE 


KUPDAT 


NUM 


First  card--KODE   =  2 
1-4 


+XXX 
NRECD 


Second  card— KODE 
1-2  5-7 


=  2 


5-12 


+  X 


XXX 


+  XXXX 


KODE 


KUPDAT 


NUM 


First  and  second  card — KODE  =  3.  See  note  following  second  card — KODE  =  9. 


First  card— KODE  =  6 
1-4  6-7  8-10 


14-16 


25-34 


67-74 


XXXX 


XX 


+  XX 


+  XX 


+  XXXX.  XXXX 


+  XX.XXXX 


IWID 


IGAGE 


Second  card— KODE 
1-2  5-7 


MONTHO 


8-12 


NYEAR 


ACTI 


AMAC 


+  X 


XXX 


+  XXXX 


KODE 


KUPDAT 


NUM 


First  card— KODE    =  7 
1-4  6-7  14-16 


25-34 


67-74 


XXXX 


XX 


+  XX 


+  XX.XXXX  +  XX.XXXX 


IWID 


IGAGE 


NYEAR 


ACTIYR 


YRAC 


Second  card— KODE    =  7 
1-2  5-7  8-12 


+  X 


XXX 


+  XXXX 


KODE 


KUPDAT 


NUM 
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First  card — KODE  =  9.  Note:  There  are  two  lines  of  maximum  intensity  data  for  each  storm 
event  ^  0.25  inch.  The  PI(7)  —  PI(12)  refers  to  the  second  line  of  output.  Four  cards  would  be 
required  to  correct  both  lines  of  data.  The  format  of  KODE  =  3  is  identical  to  KODE  =  9  except 
PI(I)  is  replaced  by  RECI(I). 


1-4 


)-7 


8-10 


11-13 


14-16 


20-24 


25-34 


35-42 


xxxx 

XX                 +XX 

+  XX 

+  XX             +  XXXX 

+  XXXX.XX 

+  XX.XXXX 

IWID           IGAGE         MONTH 
43-50                    51-58 

NDAY 
59-66 

NYEAR             NRO 
67-74 

PKD 

PI(7) 

PI(2) 
PI(8) 

+  XX0XXXX 

+  xx.xxxx 

+  XX.XXXX 

+  XX.XXXX 

PI(3) 
PK9) 

PI(4) 
PI(10) 

PI(5) 

PI(ll) 

PI(6) 
PI(12) 

Second  card— KODE   =  9 
1-2  5-7  8-12 


+  X 


XXX 


+  XXXX 


KODE 


KUPDAT 


NUM 


131-character  record — runoff. — 

First    card — KODE   =  0.    Note:    The   second   line   of   variables    refers    to  output  corrected  for 
pondage.  The  remaining  variables  are  synonymous  in  both  pondage  and  no-pondage  computations. 


1-5 

6-8 

9-11 

12-14 

15-22 

23-28 

29-38 

39-48 

+XXXX 

+XX 

+  XX 

+  XX 

+XX.XXXX 

+  XX.XX 

+  XXXX.XXXX 

+XXX.XXXXX 

IWID        MONTH        NDAY         NYEAR  HR  HT 

MONTHO     NDAYO  HRO  HTO 


TI 

TIO 


RATEO 


49-59 


60-69 


70-79 


+  X.XXXXXXXX      +XXX.XXXXX      +XXX.XXXXX 


PCORRO 


RATE 
AJRATE 


RRATE 


Second  card— KODE   =  0 


1-10                     11-20 

2.1-30                    31-40 

41 

42-43 

45-47 

48-52 

+XXX.XXXXX    +XXX.XXXXX 

+XXX.XXXXX    +  XXX.XXXXX 

X 

+X 

XXX 

+  XXXX 

RUNTI 

First  card— KODE 

1-5 
+  XXXX 
NRECD 


ACDR 
=  2 


ACMR 


ACYRR 


NEST  KODE  KUPDAT   NUM 


49 


Second  card— KODE   =  2 
42-43  45-47  48-52 


+X 
KODE 


XXX 
KUPDAT 


+XXXX 

NUM 


First  card — KODE  =  6.  Note:  The  first  line  of  variables  refers  to  maximum  volume,  and  the 
second  line  refers  to  peak  discharge.  The  information  in  the  second  card  is  identical  for  both 
types  of  data. 


1-5 

6-8 

9-11 

12-14 

15-22 

23-31 

32-37 

+XXXX 

+  XX 

+XX 

+XX 

+  XX.XXXX 

+  XX.XXXXX 

+  XXXX. 

IWID 

MDATE(I) 

NDATE(I) 

NYEAR 

TDAY(I) 

AMAX(I) 

IWID 

MP 

ND 

NYEAR 

TP 

PEAK 

HRS 


Second  card— KODE   =  6 
42-43  45-47  48-52 


+  X 


XXX 


+  XXXX 


KODE 


KUPDAT 


NUM 


First  card— KODE   =  7 
1-5  6-8  9-11 


12-14 


70-79 


+XXXX 


+  XX 


+XX 


+XX 


+  xxx.xxxxx 


IWID 


MONTH 


NDAY 


Second  card— KODE   =  7 

11-20  31-40 


NYEAR 


42-43 


AVGDR 


45-47 


48-52 


+XXX.XXXXX        +  XXX.XXXXX 


+x 


XXX 


+  XXXX 


ACDR 


ACYRR 


KODE 


KUPDAT 


NUM 


First  card— KODE   =  8 
1-5  6-8 


12-14 


69-78 


+  XXXX 


+XX 


+  XX 


+  XXXX.XXXX 


IWID 


MONTHO 


NYEAR 


PER(J) 


Second  car  "—KODE  =  8 


1-9 

10-19 

20-29 

30-39 

42-43 

45-47 

48-52 

+  XXX.XXXX 

+XXXX.XXXX 

+XXXX.XXXX 

+  XXXX.XXXX 

+  X 

XXX 

+  XXXX 

PER(J+1)  PER(J+2)  PER(J+3)  PER(J+4)  KODE       KUPDAT  NUM 

Note:    The  first  and  second  cards  for  KODE    =  9  output  are  identical  to  KODE    =  8. 
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132-character  record — soil  moisture. — 


First  card — 


1-6 

7-12 

13-15 

16-19 

21-26 

29-31 

34-40 

41-47 

+XXXXX 

+XXXXX 

+  XX 

+XXX 

XXXXXX 

XXX 

XXXXXXX 

+XXXXX. 

IWD  MO  ND  NYR  NSITE(I)         NTEBE(I)        NTEMP(I) 

48-54  55-61  62-68  69-75  76-80 


+  XXXXX.  +  XXXXX. 


+  XXXXX. 


+  XXXXX. 


+  XXXX 


COUNTS(l) 


COUNTS(2)       COUNTS(3)        COUNTS(4)        COUNTS(5)       (First  5  digits  of  SUMC) 


Second  card — 


1-4 

5-13 

14-24 

25-36 

45-47 

48-52 

XXX. 

+  XXXXXX.X 

+  XXXXXXX.XX 

+XXXXXXXX.XX 

XXX 

+  XXXX 

Last  4  digits  SUMC 


AVG 


PCSTD 


PCMOIS 


NUP 


NCONT 


Data  Preparation 

The  data  preparation  and  program  execution  are  illustrated  by  the  following  example: 

Precipitation  data  from  several  precipitation  stations  identified  as  P04  through  P37,  for 
the  years  1962  and  1963,  have  been  processed  and  the  output  placed  on  five  separate  tapes. 
The  identification  numbers  (assigned  by  computer  residence)  for  these  tapes  in  the  order  in 
which  they  were  processed  are  7105,  7100,  6820,  5030,  and  3200.  Several  errors  were  detected 
in  the  initial  run.  The  stations  containing  errors  were  rerun  and  the  data  placed  on  tape  3250. 
A  monthly  total  is  to  be  corrected  in  station  P12,  tape  7100. 

The  data  for  1962  and  1963  are  to  be  rewritten  on  separate  output  tapes  and  the  corrections 
contained  on  tape  3250  merged  in  their  respective  locations.  Also,  the  correct  monthly  total  for 
station  P12,  tape  7100,  must  be  read  from  punchcards. 

The  station  records  on  the  respective  tapes  are: 

Tape  Precipitation  Stations 

7105  P04,  P05, ,  P09,  P10  (1962). 

7100  P12,  P13,  P14,  P15, ,  P20  (1962). 

6820  P21,  P22, ,  P37  (1962),  P04  (1963). 

5030  P05,  P06, ,  P20  (1963). 

3200  P21,  P22, ,  P37  (1963). 

3250  P13,  (1962)  and  P05,  P37  (1963). 

The  steps  for  updating  are  as  follows.  Refer  to  table  Dl  for  numerical  values  which  illus- 
trate the  parameter  card  preparation  for  this  example. 

Tape  7105 

There  are  no  corrections  in  the  data  on  tape  7105.  Therefore,  the  problem  is  simply  to 
rewrite  this  tape  on  the  new  output  tape  (S.SU00). 

Prepare  the  parameter  card  as  follows  (table  Dl): 

1.  UPB1  and  UPB2  will  be  the  beginning  update  code  and  sequence  number  for  station  P04 
(UPB1    =  P04  and  UPB2    =1). 
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2.  UPE1  and  UPE2  will  be  the  end  update  code  and  sequence  number  for  station  P10 
(UPE1  =  P10  and  UPE2   =  assume  760). 

3.  UPCODE,  NUMBER,  and  INCR  are  left  blank  since  the  update  code  and  sequence  number 
on  tape  7105  are  to  be  transferred  to  the  output  tape. 

4.  NFL  refers  to  the  systems  utility  unit  being  used  and  will  be  defined  when  the  order  and 
number  of  parameter  cards  are  known.  Use  utility  unit  01  (S.SU01)  for  this  example.  See  addi- 
tional information  following  the  discussion  of  tape  3200. 

5.  NFOR  =  1  for  precipitation  data. 

6.  NEND  =  8  because  all  data  will  have  been  transferred  from  this  tape,  and  a  new  tape 
must  be  loaded. 

7.  NC  left  blank  because  all  1962  data  must  be  written  on  the  present  output  tape. 

Tape  7100 

The  operations  required  for  updating  tape  7100  are  one  monthly  correction  in  station  P12,  the 
replacement  of  P13  with  P13  from  tape  3250  and  normal  rewriting  of  the  remaining  data  from  7100. 

Five  parameter  cards  are  required  to  transfer  correctly  the  data  with  corrections  from 
7100  to  the  output  tape.  If  we  assume  that  the  monthly  correction  is  for  June  1962,  these  five 
parameter  cards  are: 

1.  Rewriting  P12  up  to  the  June  monthly  summary  (KODE   =  6  for  precipitation). 

2.  Reading  the  corrected  June  summary  from  punchcards. 

3.  Rewriting  the  remainder  of  P12. 

4.  Replacing  P13  with  P13  from  3250. 

5.  Rewriting  the  remainder  of  tape  7100.  See  table  Dl  for  the  five  cards. 

Tape  6820 

Tape  6820  contains  data  for  both  1962  and  1963.  No  corrections  or  additions  are  required. 
Two  parameter  cards  are  required  as  follows: 

1.  Rewrite  the  remainder  of  1962  data,  rewind  the  output  tape,  dismount,  and  load  a  new 
output  tape  (NC  =  7). 

2.  Rewrite  P04. 

Tape  5030 

In  tape  5030,  P05  must  be  replaced  by  P05  from  tape  3250.  Two  parameter  cards  are 
required  to  rewrite  the  entire  tape. 

1.  Replace  all  data  for  station  P05  recorded  on  tape  5030  with  corrected  P05  data  stored  on 
tape  3250,  and  change  the  update  code  (KUPDAT)  P05  to  P40  beginning  with  sequence  No.  1  and 
increment  by  steps  of  two. 

2.  Rewrite  the  remainder  of  tape  5030. 

Tape  3200 

Station  P37  must  be  replaced  by  P37  from  tape  3250.  Two  parameter  cards  are  required. 

1.  Rewrite  tape  3200  to  the  beginning  of  the  data  for  station  P37. 

2.  Replace  P37  data  stored  on  tape  3200  with  P37  data  from  tape  3250.  This  is  the  last 
parameter  card  so  NEND   =  9. 

The  next  step  is  to  code  NFL  and  determine  the  order  of  the  input  tapes  for  S.SU01  and 
S.SU02.  Note  that  the  tape  containing  the  corrected  data  is  required  throughout;  consequently, 
this  tape  must  always  be  either  on  S.SU01  or  S.SU02.  We  will  place  it  on  S.SU02  since  S.SU01 
has  previously  been  selected  for  mounting  all  tapes  except  the  correction  tape.  Therefore, 
NFL  =2  for  all  parameter  cards  specifying  input  from  tape  3250.  The  remaining  parameter 
cards  will  be  referenced  to  S.SU01;  hence,  NFL    =1. 

The  preparation  of  parameter  cards  for  80,  131,  and  132  character  records  would  be 
identical  to  the  precipitation  (90-character  record)  example. 

A  schematic  illustration  of  the  stacking  order  for  the  above  example,  using  the  IBM  7040 
installation  at  Virginia  Polytechnic  Institute,  Blacksburg,  Va.,  is  given  in  figure  Dl. 
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5IBSYS    CARD 


PREGIP1IATI0N    DATA 
FOR  CORRECTION 
(2    CARDS) 


PARAMETER   CARDS    FOR    REWRITING    AND 
CORRECTING    DATA    FROM    T/PE    NO.    7100 


INARY  DECK  (PROGRAM) 

SFILE  CARDS  (SEE  APPENDIX  Dl) 
-  SIBJOB  CARD 

$JOB  CARD 


NOTE:   The  5 


Figure  Dl. — Schematic  diagram  illustrating  the  stacking  order  for  the  input  data  required  by  program  D.  The 
computer  residence  cards  are  those  required  by  the  IBM  7040/1401  installation  at  Virginia  Polytechnic  Institute, 
Blacksburg,  Va„ 


PROGRAM  E  (PROGRAM  FOR  COMPILING  ARS  MISCELLANEOUS 

PUBLICATION  INFORMATION) 

Program  E  was  designed  to  summarize  the  precipitation  and  runoff  data  resulting  from 
data  reduction  programs  A  and  B  into  a  form  compatible  with  the  requirements  of  the  U.S. 
Department  of  Agriculture  Miscellaneous  Publication  "Hydro logic  Data  for  Experimental 
Agricultural  Watersheds  in  the  United  States."  The  four  summaries  are: 

1.  Selected  storm  event  (antecedent  conditions,  rainfall,  and  runoff). 

2.  Mean  daily  discharge  (CFS). 

3.  Daily  precipitation. 

4.  Maximum-minimum  temperature. 

The  program  performs  all  required  computations  and  summaries  in  one  pass  through  the 
data.  A  detailed  description  of  the  source  program  and  the  corresponding  Fortran  variables  are 
given  in  appendix  lists  El  and  E2,  respectively.  Details  concerning  the  intercomponents  and 
functions  of  the  program  follow. 

Program  Constants 

Four  areas  are  reserved  for  the  storage  of  alphameric  and  numeric  constants.  These  areas 
are  NTYPE,  NBLK,  M,  and  NUMB.  NTYPE  and  NBLK  are  alphameric  constants,  and  M  and 
NUMB  are  numeric  constants.  See  appendix  list  E2  for  symbol  definitions.  The  constants  are 
given  in  table  El. 
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TABLE  El. — Constants  for  program  E 

I 

NTYPE 

NBLK 

NUMB 

M 

1 

2 - 

3 

4 

5 

6  - 

7 

8 

(0 
T 
E 
S 
L 
H 
N 
M 

0) 
(i) 
0) 
0) 
(l) 

111 
222 
122 
112 
212 
221 
121 
211 

31 

28;  29 

31 

30 

31 

30 

31 

31 

30 

31 

30 

31 

9 

10-- 

H 

12 

1  Blank  storage  areas  (alphameric  mode). 


Input 

The  input  data  will  consist  of  the  following: 

1.  Parameter  card. 

2.  Watershed  area  and  conversion  table. 

3.  Thiessen  weights. 

4.  Average  monthly  precipitation  and  number  of  years  of  record. 

5.  Daily  precipitation  amounts  in  cards  (if  weekly  gage  has  not  been  processed  by  pro- 
gram A). 

6.  Precipitation  tape  from  program  A. 

7.  Runoff  tape  from  program  B. 

8.  Average  monthly  maximum-minimum  temperature. 

9.  Maximum- minimum  temperature  data  cards. 

Parameter  Card 

The  parameter  card  contains  the  beginning  and  ending  of  the  selected  event,  index,  and 
identification  coding.  One  card  is  required  for  each  rain  gage  for  which  intensity  values  are 
required.  The  first  card  contains  all  coding  necessary  for  successful  execution  of  the  program, 
and  subsequent  cards  just  require  coding  related  to  that  gage.  The  card  columns,  format  specifi- 
cation, and  Fortran  symbolic  name  for  each  data  field  follow: 


First  card. — 


2-4 


5-9 


11-13 


14-18 


20-22 


23-27 


29-31 


XXX 

XXXXX 

XXX 

XXXXX 

XXX 

XXXXX 

XXX 

ANTA 
32-36 

ANTN 
38-40 

RBA 

41-45 

RBN 
47-49 

REA 
50-54 

REN 
55 

QANTA 
56-57 

XXXXX 

XXX 

XXXXX 

XXX 

XXXXX 

X 

XX 

QANTN 
58 

QBA 
59 

60 

QBN 

61 

QEA 
62- 

•  65 

QEN 
66-67 

CORT 
68 

RSTAS 
69 

X 

X 

X 

X 

XXXX 

XX 

X 

X 

NEND 


NTEMP 


NOP1 


NOP2 


IWIDIN 
54 


INGAGE 


KRWDO 


KRWD1 


Subsequent  cards. — 


11-13 

14-18 

20-22 

23-27 

29-31 

32-36 

58 

62-65 

66-67 

XXX 

XXXXX 

XXX 

XXXXX 

XXX 

XXXXX 

X 

XXXX 

XX 

RBA  RBN  REA  REN  QANTA         QANTN         NEND         IWIDIN         INGAGE 

In  data  fields  5-9,  14-18,  23-27,  32-36,  41-45,  and  50-54,  nonsignificant  zeros  are  not 
punched.  The  data  must  always  be  right  justified  in  their  respective  fields. 

Watershed  area  and  conversion  table 

The  watershed  area  and  conversion  table  consists  of  three  cards  containing  information 
to  convert  inches  per  hour  to  cubic  feet  per  second  and  cubic  feet  per  second  to  inches  for  15 
watersheds.  This  table  is  normally  loaded  once  during  a  given  analysis;  however,  by  proper 
coding  of  NO  PI  in  the  parameter  card,  the  table  can  be  reloaded  at  the  beginning  of  each  water- 
shed analysis.  In  either  event,  three  cards  must  be  loaded. 

The  last  two  digits  of  the  watershed  identification  code  must  be  identical  to  corresponding 
values  for  index  I  in  the  watershed  area  and  conversion  table;  therefore,  the  last  two  digits  of 
the  watershed  code  must  be  greater  than  zero  and  equal  to  or  less  than  15.  If  less  than  15 
watersheds  are  to  be  processed,  leave  unused  fields  blank,  for  example,  if  watershed  06  is 
not  being  used,  then  card  columns  6-10  and  51-56  of  the  second  card  will  be  left  blank.  When 
more  than  15  watersheds  are  to  be  processed,  increase  the  dimension  of  RA  and  AREA  to  the 
desired  limits  and  correct  the  read  loop  so  that  the  new  number  of  conversion  factors  may  be 
read. 

The  form  of  the  watershed  area  and  conversion  table  is  illustrated  below,  preceded  by  the 
information  contained  in  each  card. 
Card  1:    Columns  1-50  contain  RA  values  for  watersheds  1-5. 

Columns  51-80  contain  AREA  values  for  watersheds  1-5. 
Card  2:    Columns  1-50  contain  RA  values  for  watersheds  6-10. 

Columns  51-80  contain  AREA  values  for  watersheds  6-10. 
Card  3:    Columns  1-50  contain  RA  values  for  watersheds  11-15. 

Columns  51-80  contain  AREA  values  for  watersheds  11-15. 

1-10  11-20  21-30  31-40  41-50 

.XXXXXXXXXX         .XXXXXXXXXX         .XXXXXXXXXX  .XXXXXXXXXX  .XXXXXXXXXX 


RA(I)  RA(I+1)  RA(I+2)  RA(I +3)  RA(I +4) 


51-56 

57-62 

63-68 

69-74 

75-80 

XXXX.XX 

XXXX.XX 

XXXX.XX 

XXXX.XX 

XXXX.XX 

AREA(I)  AREA(I+1)  AREA(I +2)  AREA(I +3)  AREA(I+4) 

Thiessen  weights 

The  Thiessen  weight  card  contains  the  weighted  values  that  must  be  applied  to  each  rain  gage 
from  a  given  watershed  rain  gage  network  to  arrive  at  the  average  Thiessen  weighted  rainfall 
for  that  watershed.  The  program  is  dimensioned  for  a  maximum  rain  gage  network  of  six.  A 
larger  network  may  be  obtained  by  increasing  the  dimension  of  TWTS. 

The  rain  gage  identification  code  must  be  0<  IGAGE— 6.  The  Thiessen  weight  for  IGAGE  =  1 
would  be  stored  at  TWTS(I)  where  I  =  1,  IGAGE  =  2  at  TWTS(I  +1)  as  shown  in  the  following 
format. 


1-3 

4-6 

7-9 

10-12 

13-15 

16-18 

x.xx 

X.XX 

X.XX 

X.XX 

X.XX 

X.XX 

TWTS(I)         TWTS(I+1)         TWTS(I  +  2)         TWTS(I+3)         TWTS(I +4)         TWTS(I  +  5) 
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Average  Monthly  Precipitation  and  Years  of  Record 

Two  cards  contain  the  station  average  rainfall  and  years  of  record  for  each  month  from  the 
previous  year's  computations.  The  first  card  contains  the  data  for  January  through  June,  and  the 
second  card  contains  data  for  July  through  December.  The  format  for  both  cards  is  identical. 
Decimals  must  be  punched. 


1-6 

7-10 

11-16 

17-20 

21-26 

27-30 

XXX.XX 

XXX. 

XXX.XX 

XXX. 

XXX.XX 

XXX. 

PYRSP(I) 
31-36 

YRSREC(I) 

37-40 

PYRSP(I  +  1) 
41-46 

YRSRECU+1) 

47-50 

PYRSP(I+2) 
51-56 

YRSRECd  +2) 
57-60 

XXX.XX 

XXX. 

XXX.  XX 

XXX. 

XXX.XX 

XXX. 

PYRSP(I+3)        YRSRECd +3)        PYRSP(I+4)        YRSRECd  +4)        PYRSP(I+5)        YRSRECd +5) 

Daily  Precipitation 

The  precipitation  data  required  by  this  program  will  normally  be  on  magnetic  tape  as  a 
direct  result  of  program  A.  Some  data  resulting  from  rain  gage  recordings  with  a  192-hour 
time  scale  may  not  be  processed  with  program  A  because  intensities  for  short  durations  cannot 
be  accurately  determined.  Whenever  these  data  are  not  processed  by  program  A,  the  daily 
precipitation  may  be  placed  on  punchcards  and  read  from  this  source.  Variable  CORT  specifies 
whether  or  not  the  precipitation  data  (R-l)  is  on  punchcards  or  magnetic  tape.  All  rain  gages 
having  a  192-hour  time  scale  are  classified  as  R-l  gages  at  the  Blacksburg,  Va.,  research 
station.  The  recording  gages  with  faster  time  scales  are  classified  as  R-2,  R-3,  and  so  on,  with 
the  numeric  digit  being  equivalent  to  IGAGE. 


1-2 

4-5 

7-8 

11-14 

15 

80 

XX 

XX 

XX 

XX.XX 

X 

X 

MONTH 


NDAY 


NYEAR 


DAC 


LTYPRE 


J  END 


Precipitation 

The  precipitation  input  for  program  E  is  the  data  that  is  placed  on  magnetic  tape  for  per- 
manent storage  by  program  A.  This  tape  is  placed  on  utility  unit  S.SU00.  See  program  A  for 
data  format  (storage  tape). 

Runoff 

The  runoff  input  for  program  E  is  the  data  that  is  placed  on  magnetic  tape  for  permanent 
storage  by  program  B.  This  tape  is  placed  on  utility  unit  S.SU01.  See  program  B  for  data  format 
(storage  tape). 

Average  Monthly  Maximum-Minimum  Temperature 

Two  cards  contain  station  average  monthly  maximum-minimum  temperatures  for  the  period 
of  record  from  the  previous  year's  computations.  The  second  card  also  contains  the  number  of 
years  of  record  from  which  the  average  was  computed.  Decimals  must  be  punched. 

First  card. — 


1-6 

7-12 

13-18 

19-24 

25-30 

31-36 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

AVMN(K) 
37-42 

AVMN(K) 
43-48 

AVMX(K  +  1) 
49-54 

AVMN(K+1) 
55-60 

AVMX(K  +  2) 
61-66 

AVMN(K  +2) 
67-72 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

AVMX(K+3)  AVMN(K+3)  AVMX(K+4)  AVMN(K+4)  AVMX(K+5)  AVMN(K +5) 
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Second  card. — 


1-6 

7-12 

13-18 

19-24 

25-30 

31-36 

xxxx.x 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

AVMX(K  +  6)         AVMN(K  +  6)         AVMX(K  +  7)         AVMN(K+ 7) 


AVMX(K+8) 


AVMN(K+  8) 


37-42 

43-48 

49-54 

55-60 

61-66 

67-72 

77-80 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXXX.X 

XXX. 

AVMX(K  +  9)     AVMN(K+9)     AVMX(K+  10)     AVMN(K+10)     AVMX(K+11)     AVMN(K+11)       AK 

Maximum-Minimum  Temperature 

The   cards    containing   the   daily    maximum  and  minimum  temperatures  represent  the  last 
input  for  a  given  watershed.  MONTH  and  NDAY  serve  as  indexes  for  both  storage  matrices. 


1-2 

3-4 

6-8 

10-12 

80 

XX 

XX 

XXX 

XXX 

X 

MONTH 


NDAY 


NTMAX  (MONTH,  NDAY) 


NTMIN  (MONTH,  NDAY) 


NEND 


Order  of  Input 

The  location  of  rain  gages  within  a  given  watershed  determines  the  Thiessen  weight  for  any 
given  gage.  Occasionally  rain  gages  must  be  relocated  for  some  reason;  consequently,  the 
Thiessen  weights  of  all  rain  gages  will  change.  Program  E  has  been  modified  so  that  it  will 
process  one  Thiessen  weight  change  per  watershed  per  year.  The  stacking  order  for  no  Thiessen 
weight  change  and  one  Thiessen  weight  change  is  given  below.  The  stacking  order  required  by 
the  IBM  7040/1401  installation  at  Virginia  Polytechnic  Institute,  Blacksburg,  Va.,  is  further 
illustrated  by  figure  El. 

No  Thiessen  Weight  Change 

The  input  cards  for  the  routine  of  no  Thiessen  weight  change  must  be  stacked  in  the  following 
order: 

1.  Cards  specified  by  the  computer  residence. 

2.  Binary  deck  (computer  program  instructions). 

3.  First  parameter  card. 

4.  Watershed  area  and  rate  conversion  factors  (three  cards). 

5.  Station  average  monthly  precipitation  and  number  of  years  of  record  from  previous 
year's  computation  (two  cards). 

6.  Thiessen  weights  (one  card). 

7.  R-l  daily  precipitation  data  when  on  punchcards  (omit  this  step  if  R-l  data  are  on 
magnetic  tape). 

8.  Subsequent  parameter  cards  as  required. 

9.  Station  average  monthly  maximum-minimum  temperature  and  years  of  record  from 
previous  year's  computations  (two  cards). 

10.  Maximum-minimum  temperature  data. 

11.  For  additional  watersheds,  repeat  steps  3-10  where  applicable.  Step  4  will  normally 
be  omitted  because  all  watershed  areas  and  rate  conversion  factors  that  will  be  required  for  a 
given  computer  run  will  usually  be  loaded  with  the  first  group  of  watershed  data. 
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MAX-MIN   TEMPERATURE  DATA 


STATION  AVERAGE  MAX-MIN  MONTHLY   TEMPERATURE    (2  CARDS) 
SUBSEQUENT   PARAMETER  CARDS    (ONE   CARD  REQUIRED   FOR 
—        EACH  ADDITIONAL   RECORDING   RAIMGAGE   TO  BE   INCLUDED 
IN   THE   SELECTED   EVENT) 

DAILY   PRECIPITATION   FOR  WEEKLY  GAGE    (R-l) 
THIESSEN  WEIGHTS    (1    CARD) 
STATION  AVERAGE  MONTHLY   PRECIPITATION    (2  CARDS) 

WATERSHED  CONVERSION   FACTORS    (3  CARDS) 
PARAMETER  CARD    (FIRST) 
SENTRY 


BINARY   DECK.   (PROGRAM) 


SFILE  CARDS 
SIBJOB  CARD 


The  precipitation  output  tape  from 
program  A  is  placed  on  utility  unit 
0  (S.SUOO)  and  the  runoff  output 
tape  is  placed  on  utility  unit  1 
(S.SUOl)  . 
The  S  refers  to  computer  residence 


Figure  El. — Schematic  diagram  illustrating  the  stacking  order  for  the  input  data  required  by  program  E.  The 
computer  residence  cards  are  those  required  by  the  IBM  7040/1401  installation  at  Virginia  Polytechnic  Institute, 
Blacksburg,  Va. 


One  Thiessen  Weight  Change 

The    input    cards    for    the   routine   of   one    Thiessen  weight  change  must  be  stacked  in  the 
following  order: 

1.    Cards  specified  by  the  computer  residence. 
Binary  deck  (computer  program  instructions). 
First  parameter  card. 

Watershed  area  and  rate  conversion  factors  (three  cards). 

Station   average    monthly  precipitation  and  number  years  record  from  previous  year's 
computations  (two  cards). 

6.    Old  Thiessen  weights  (one  card). 

R-l  daily  precipitation  data  for  the  period  prior  to  rain  gage  relocation. 
The  first  card  of  the  remaining  R-l  data  (an  8  must  be  punched  in  column  80). 
New  Thiessen  weights  (one  card). 
The  remainder  of  the  R-l  data. 
Old  Thiessen  weights  (one  card). 
New  Thiessen  weights  (one  card). 
Subsequent  parameter  card. 
Old  Thiessen  weight  (one  card). 


2. 
3. 
4. 
5. 


7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 
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15.  New  Thiessen  weight  (one  card). 

16.  Repeat  steps  13-15  for  each  additional  rain  gage  to  be  processed. 

17.  Station  average  monthly  maximum- minimum  temperature  and  the  number  of  years  of 
record  from  the  previous  year's  computations  (two  cards). 

18.  Maximum- minimum  temperature  data. 

19.  Repeat  steps  3-18  where  applicable  for  additional  watersheds. 

Data  Preparation 

Two  general  steps  are  required  in  preparing  the  input  data  for  program  E.  (1)  Storm  events 
for  all  watersheds  are  selected  manually  from  the  output  of  programs  A  and  B  using  as  a  guide 
the  criteria  set  forth  in  the  references  listed  in  footnotes  3  and  4  on  page  1  and,  (2)  after  suita- 
ble events  have  been  selected,  parameter  cards  are  prepared  for  each  selected  event.  Table  E2 
is  given  as  a  guide  for  preparing  these  data  cards. 

The  procedures  to  be  followed  in  selecting  storm  events  are  covered  reasonably  well  in  the 
references  listed  in  footnotes  3  and  4  on  page  1   and  will  not  be  discussed  in  this  report. 

The  storm  event  shown  in  figures  Al  and  Bl  in  conjunction  with  the  output  from  programs  A 
and  B  for  this  event  (tables  A5  and  B5)  will  be  used  to  illustrate  the  procedure  to  be  followed  in 
preparing  the  parameter  cards.  The  steps  to  be  followed  are  given  below  in  the  order  that  the 
data  must  be  punched  in  the  parameter  card. 

1.  Columns  2-9  contain  the  information  that  will  be  required  to  locate  the  beginning  of 
antecedent  precipitation  or  the  point  at  which  Thiessen  weights  must  be  changed.  The  latter 
information  is  required  when  Thiessen  weighted  daily  precipitation  data  are  summarized  for  the 
R-l  rain  gage.  Both  sets  of  information  will  never  be  required  at  the  same  time.  Antecedent 
conditions  for  periods  greater  than  1  day  are  determined  for  unit-source  areas;  however, 
Thiessen  weighted  precipitation  is  not  summarized  under  these  conditions.  Completed  parameter 
cards  are  given  in  table  E2.  The  first  card  was  prepared  for  a  unit-source  watershed  where 
antecedent  conditions  were  required  for  30  days  prior  to  the  beginning  of  the  selected  rainfall 
event.  The  second  card  was  prepared  for  a  complex  watershed,  where  antecedent  conditions 
were  required  only  for  the  day  that  rainfall  began.  Mean  daily  discharge,  Thiessen  weighted 
daily  precipitation,  and  maximum-minimum  temperature  summaries  were  also  required  for  the 
complex  area.  The  rain  gages  were  not  relocated  during  the  year;  therefore,  columns  2-9  remain 
blank  in  the  second  parameter  card. 

Special  Note:  All  sequence  numbers  used  in  steps  1  through  4  must  be  right  justified  and 
punched  exactly  as  stored  on  tape  and  as  shown  in  example  tables  A5  and  B5. 

2.  Columns  11-27  contain  the  information  that  will  be  required  to  locate  the  beginning  and 
ending  of  the  selected  event.  Note  that  only  code  0  data  may  be  used  in  selecting  the  update 
code  and  sequence  number  to  be  placed  in  columns  11-27. 

3.  Columns  29-36  contain  the  information  that  will  be  required  to  locate  the  beginning  of 
antecedent  runoff  or  the  point  at  which  Thiessen  weights  must  be  changed.  The  latter  information 
is  required  when  Thiessen  weighted  precipitation  data  are  summarized  for  the  R-2  rain  gage. 
For  the  example  in  table  E2,  the  first  card  contains  the  update  and  sequence  number  for  the 
beginning  of  30-day  antecedent  runoff  (table  B5).  Since  there  were  no  Thiessen  weight  changes 
during  the  year  (step  1),  columns  29-36  remain  blank  in  the  second  parameter  card. 

4.  Columns  38-54  contain  the  information  that  will  be  necessary  to  locate  the  beginning 
and  ending  of  the  selected  runoff  event.  Note  that  only  code  0  data  may  be  used  in  selecting  the 
update  and  sequence  number  to  be  placed  in  columns  38-54.  See  table  B5  for  verification  of 
the  values  placed  in  columns  38-54  for  the  example  in  table  E2. 

5.  Column  55  specifies  the  location  of  the  R-l  data.  CORT  -  1  if  R-l  data  are  on  punch- 
cards  and  CORT  =  2  if  R-l  data  are  on  magnetic  tape.  This  column  is  ignored  when  antecedent 
conditions  are  determined  for  periods  greater  than  1  day  (first  card  of  table  E2).  In  this  example 
the  R-l  data  are  on  magnetic  tape. 
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TAELE  E2. 


""  Code  sheet  for  recording  parameter  card  data  for  publication 
summaries  (input  for  program  E) 


Date 

7 

3 
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DC 

3 

z 

1. 

o 

z 

z 
a 
* 

o 
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o 

z 

a 

a 
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3 
t 

r 

CVJ   fO 

•3 

m 

10 

r~ 

co 

T- 

K> 

T 

te 

m 

° 

<- 

c* 

Kl 

<? 
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s 
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s 

U 

R 
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10 

i 

<ti 

o 

- 
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<r 

<T 

t 

CD 

01 

o 

^ 

K|S|S 

£ 

■£T7 

CD 

^   ° 

[£ 

S;S|S 

o 

^ 
* 

l£ 

DO 

B   ■ 

0 

Bt 

? 

5 

5 

1 

P 

2 

<? 

6, 

2 

0 

P 

z 

? 

few 

<2 

<P 

/ 

2 

/ 

_? 

4 

4 

0 

/ 

2 

/ 

4 

.T 

4 

0 

/ 

? 

/ 

4 

fl 

* 

^ 

/ 

P 

2 

9 

b 

2 

0 

P 

z 

9 

6 

4 

2 

9 

/ 

^ 

/ 

4 

,4 

4 

Q 

/ 

? 

Z1 

4 

fi 

* 

? 

0 

/ 

<? 

/  / 

? 

/ 

3 

/ 

? 

(3 

?. 

/ 

f 

1 

_ 

Tabulated  by. 


Checked  by. 
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6.  Columns  56-57  contain  the  total  number  of  rain  gages  that  are  to  be  used  in  the  selected 
event  summary,  exclusive  of  R-l  gages.  These  columns  are  always  blank  when  antecedent 
conditions  are  determined  (first  card  table  E2).  For  this  example  only  one  rain  gage  is  used  in 
the  selected  event  summary. 

7.  Column  58  contains  a  code  to  stop  data  processing.  The  last  parameter  card  to  be 
processed  contains  a  9  in  column  58.  This  column  in  all  previous  cards  is  left  blank. 

8.  Column  59  specifies  if  maximum-minimum  temperature  data  will  be  summarized. 
Maximum- minimum  temperature  data  cannot  be  summarized  when  antecedent  conditions  are 
determined;  therefore,  this  column  always  remains  blank  in  those  situations  (first  card,  table  E2). 
A  1  is  placed  in  column  59  when  maximum-minimum  temperature  data  must  be  summarized. 

9.  Column  60  contains  a  code  which  specifies  if  the  watershed  area  and  conversion  factor 
table  must  be  read.  Normally,  this  table  is  read  only  once. 

10.  Column  61  contains  a  code  which  specifies  if  Thiessen  weights  must  be  read.  Thiessen 
weights  are  never  required  when  antecedent  conditions  are  determined.  In  those  situations, 
column  61  will  always  contain  a  1  (see  example,  first  card,  table  E2). 

11.  Columns  62-65  contain  the  watershed  identification  code  for  the  watershed  being 
processed.  These  columns  remain  blank  when  antecedent  conditions  are  determined. 

12.  Columns  66-67  contain  the  rain  gage  identification  code  for  the  rain  gage  being  proc- 
essed. These  columns  also  remain  blank  when  antecedent  conditions  are  determined. 

13.  Data  are  stored  on  magnetic  tape  in  sequential  order.  When  a  given  block  of  data  has 
been  passed  during  processing,  normally  the  only  way  to  again  gain  access  to  this  data  is  to 
rewind  the  tape  and  start  at  the  beginning.  Columns  60  and  61  have  been  provided  for  this  pur- 
pose. If  the  data  required  by  the  parameter  card  has  been  passed  over,  then  the  precipitation 
tape  will  be  rewound  if  a  1  is  placed  in  column  60,  and  the  runoff  tape  will  be  rewound  if  a  1  is 
placed  in  column  61. 


Output 

All  output  from  program  E  is  placed  on  standard  80-column  punchcards  and  coded  so  that 
when  listed  by  an  IBM  407  tabulating  machine  they  will  be  in  a  form  acceptable  for  the  U.S. 
Department  of  Agriculture  Miscellaneous  Publication,  "Hydrologic  Data  for  Agricultural  Water- 
sheds in  the  United  States."  Two  IBM  407  board  wirings  are  required.  Figure  E2  illustrates  the 
wiring  diagram  for  selected  event  data,  and  figure  E3  illustrates  the  diagram  for  Thiessen 
weighted  daily  precipitation,  mean  daily  discharge  (CFS),  and  maximum-minimum  temperature 
summaries. 

The  order  of  output  for  each  watershed  is  as  follows: 

1.  Selected  storm  event. 

2.  Mean  daily  discharge  (CFS). 

3.  Thiessen  weighted  daily  precipitation. 

4.  Current  station  average  monthly  precipitation  and  year's  record  (two  cards). 

5.  Maximum-minimum  temperature. 

6.  Current  station  average  monthly  maximum-minimum  temperature  summary  (two  cards). 

Selected  Storm  Event 

The  card  for  the  selected  storm  event  data  contains  information  on  antecedent  conditions, 
rainfall,  and  runoff.  The  time  of  day  has  been  increased  by  10,000  so  that  four  positions  in  the 
time  field  will  always  be  punched,  regardless  of  whether  the  answers  contain  one  or  four  signifi- 
cant digits.  For  example  40  minutes  will  appear  as  10040  on  the  punchcard  and  as  0040  in  the 
final  tabulation  when  the  board  wiring  of  figure  E2  is  used. 
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Control  Tape    For  Listing  Selected   Event  Data-        ! 

..,»»»§, 

Figure  E2. — IBM  407  board  wiring  diagram  to  be  used  for  listing  selected  event  data. 
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Control  Tape  For  Listing  Mean  Daily  Discharge  And 


Thiessen  Weighted  Daily  Precipitation 


4~ 


Control  Tape  For  Listing  MaximumAnd  Minimum  Temperature  Data 


Figure    E3. — IBM   407  board  wiring  diagram  to  be  used  for  listing  mean  daily  discharge,  Thiessen  weighted  daily 

precipitation,  and  maximum-minimum  temperature  data. 
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TABLE   E3.    --    1965    SELECTED   STORM  EVENT   FROM   PONY  MOUNTAIN  BRANCH  WATERSHED 
SHOWING   AN   EXAMPLE   OF    30 -DAY  ANTECEDENT  CONDITIONS 


1965 

SELECTED  RUNOFF  EVENTS 

BLACKSBURG,    VIRGINIA                PONY  MOUNIAIN   BRANC1 

W-I 

13.12 

F,.,N 

FALL 

«"«»" 

"■    E    -  - 

-    .    .    : 

Rllp,„lL 

RUHOFr 

TIME 

INTENSITY 

ACC. 

DATE 

TINE 

RATE 

ACC 

no-Day 

r..fi«j 

focfeij 

NO-DAY 

of  OAY 

'"*'*'' 

'■"*"' 

NO-DAY 

OF    DAY 

rnrfcr.J 

RG   R-2 

Even 

Cot  September   24, 

.965 

RG 

R-2 

8-25 

.96 

.0346 

9-24 

1345 

•  OU 

.00 

9-24 

1404 

.0009 

.0000 

8-26 

.09 

T 

1349 

1.05 

.07 

1406 

.0024 

.0001 

9-11 

.93 

.0060 

1351 

3.30 

.18 

1408 

.0044 

.0002 

9-12 

.61 

.0024 

1355 

1.C5 

.25 

1410 

.0084 

.0004 

9-13 

.19 

.0008 

1359 

1.50 

.35 

1412 

.0141 

.0008 

9-16 

.15 

.0000 

1405 

.00 

.35 

1414 

.0207 

.0013 

9-24 

.16 

.0065 

1406 

9.00 

.5C 

1416 

.0274 

.0021 

1411 

1.56 

.63 

1418 

.0336 

.0032 

1413 

3.60 

.75 

1420 

.0414 

.0044 

1416 

1.40 

.82 

1422 

.0484 

.0059 

1419 

2.20 

.93 

1424 

.0506 

.0076 

1512 

.01 

.94 

1427 

.0498 

.0101 

1524 

.15 

.97 

1432 

.0419 

.0139 

1544 

.09 

1.00 

1436 

.0357 

.0165 

1555 

.05 

1.01 

1442 

.0267 

.0196 

1630 

.02 

1.02 

1449 

.0177 

.0222 

1642 

.15 

1.05 

1500 

.0110 

.0248 

1657 

.04 

1.06 

1510 

.0070 

.0263 

1728 

.02 

1.07 

1524 

.0040 

.0276 

1805 

.06 

1.11 

1540 

.0025 

.0285 

1650 

.05 

1.15 

9-25 

1600 
1636 
1720 
1800 
1912 

2036 
2212 
2400 
0200 

.0015 

.0006 
.0003 
.0002 
.0001 

.0001 
.0000 
.0000 
.0000 

.0291 
.0297 
.0301 
.0302 
.0304 

.0306 
.0307 
.0307 
.0307 

TABLE  E4.    --    1965   SELECTED   STORM  EVENT  FROM  PONY  MOUNTAIN  BRANCH  WATERSHED 
SHOWING   AN   EXAMPLE   OF    1-DAY  ANTECEDENT   CONDITIONS 


1965                SELECTED  RUNOFF  EVENTS 

BLACKSBURG,    VIRGINIA                PONY   MOUNTAIN    BRANCH 

W-I 

13.12 

ANTECEDENT  CONDITIONS 

RAIN 

FALL 

«■«»" 

DATE 

RAINFALL 

RUNOFF 

OATE 

TINE 

sTE..$1-, 

ACC. 

DATE 

Tine 

RATE 

ACC. 

NO-DAT 

"■"*'" 

NO-DAY 

OF    DAY 

''■"*"' 

NO-DAY 

OF  DAY 

''■'*" ' 

Even 

t  of  Sept* 

mber   24, 

1965 

RG    R-2 

RG 

R-2 

9-24 

.16 

.0065 

9-24 

1345 

.00 

.00 

9-24 

1404 

.1798 

.0000 

1349 

1.05 

.07 

1406 

.4661 

.0001 

1351 

3.30 

.18 

1408 

.8451 

.0002 

1355 

1.05 

.25 

1410 

1.6341 

.0004 

1359 

1.50 

.35 

1412 

2.7267 

.0008 

1405 

.00 

.35 

1414 

4.0108 

.0013 

14C6 

9.00 

.50 

1416 

5.3084 

.0021 

1411 

1.56 

.63 

1418 

6.4996 

.0032 

1413 

3.60 

.75 

1420 

8.0042 

.0044 

1416 

1  .40 

.82 

1422 

9.3637 

.0059 

1419 

2.20 

.93 

1424 

9.7775 

.0076 

1512 

.01 

.94 

1427 

9.6344 

.0101 

1524 

.15 

.97 

1432 

8. 1009 

.0139 

1544 

.09 

1.00 

1436 

6.9116 

.0165 

1555 

.05 

1.01 

1442 

■>.  1556 

.0196 

1630 

.02 

1.02 

1440 

3.4248 

.0222 

1642 

.15 

1.05 

1500 

2.1253 

.0248 

1657 

.04 

1.C6 

1510 

1.3440 

.0263 

1728 

.02 

1.07 

1524 

.7793 

.0276 

1805 

.06 

1.11 

1540 

.4757 

.0285 

1850 

.05 

1.15 

o-?R 

1600 
1636 
1720 

1800 
1912 

2036 
2212 

24  -,c 
0200 

.2901 
.1160 
.0599 
.0387 
.0232 

.0135 
.0058 
.0039 
.0000 

.0291 
.0297 
.0301 
.0302 
.0304 

.0306 
.0307 
.0307 
.0307 
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Punchcard  form. — 

Antecedent  Conditions 
1-3  4-6  7-11  12-18 


19 


20-25 


Rainfall 
26-31  32-37 


38-42 


+XX 


-XX  +X.XX 


+  X.XXXX 


X 


+XX-XX  +XXXXX  +XX.XX  +X.XX 


MATC(I,J) 


MODT 


LTIMEP 


NAI 


NSUM 


Runoff 


43-45 

46-48 

49-54 

55-64 

65-71 

72 

73-80 

+  XX 

-XX 

+XXXXX 

+XXXX.XXXX 

+  X.XXXX 

X 

+  XXXXXXX 

MONQ 


NQD 


LTIMEQ 


AJRATE 


SUMQ 


(See  note) 


MM 


Note:  Column  72  contains  a  T  when  0.00000  <SUMQ  <0.00005  and  is  left  blank  when 
0.00000  =   SUMQ  >  0.00005. 

Antecedent  conditions  are  summarized  for  30  days  prior  to  the  beginning  of  the  selected 
event,  except  when  Thiessen  weighted  daily  rainfall  is  determined.  The  rainfall- runoff  occurring 
antecedent  to  and  within  the  same  day  that  the  selected  event  occurs  are  determined  when  30-day 
antecedent  conditions  are  not  required.  Tables  E3  and  E4  contain  example  listings  of  the  data 
for  the  same  selected  storm  event,  which  illustrates  30-day  antecedent  conditions  and  daily 
antecedent  conditions,  respectively.  Note  that  the  programming  logic  will  not  allow  30-day  ante- 
cedent summaries  when  Thiessen  weighted  daily  rainfall  and  mean  daily  discharge  data  sum- 
maries are  being  made.  The  selected  event  is  the  only  summary  that  will  be  obtained  with  30-day 
antecedent  conditions. 


Mean  Daily  Discharge 

The  mean  daily  discharge  is  summarized  and  placed  in  tabular  form  by  days  and  months. 
The  output  list  for  each  day  is  placed  on  two  data  cards  which  will  result  in  one  line  of  print 
(table  E5)  when  listed  by  the  IBM  407  tabulator  with  the  wiring  diagram  shown  in  figure  E3. 


TABLE  E5. 


1965  MEAN  DAILY  DISCHARGE  FOR  PONY  MOUNTAIN  BRANCH  WATERSHED 


1965       MEAN  DAILY 

DISCHARGE  fcfs) 

BLACKSBITRG,    VISG1NLA 

PONY  M0UNIAIN    BRANCH  U-I 

13.12 

O.v 

FEB 

„.. 

.PR 

MAY 

JUNE                       JULY                       A.UG 

SEPT 

OCT 

NOV 

OEC 

1 

.04 

.08 

.28 

.05 

T 

.00 

.oo           .oo 

.00 

.00 

.00 

.00 

2 

.13 

.07 

.25 

.05 

T 

.00 

.00 

.00 

.00 

.00 

.00 

3 

.05 

.06 

.25 

.04 

T 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

a 

.03 

.06 

1.35 

.03 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

5 

.03 

.06 

4.  14 

.02 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

6 

.02 

.07 

.84 

.03 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

7 

.02 

10.75 

.41 

.04 

.05 

.oo 

.00 

.00 

.00 

.28 

.00 

.00 

B 

.  10 

1.96 

.28 

.03 

.01 

.00 

. 

.00 

.00 

T 

.00 

.00 

9 

.      .36 

.77 

.20 

.05 

T 

.no 

.00 

.00 

.00 

.00 

.00 

.00 

10 

.95 

.60 

.14 

.02 

T 

.00 

.08 

.00 

.00 

.00 

.00 

.00 

U 

.58 

.48 

.10 

.03 

T 

.00 

.00 

.00 

.05 

.00 

.00 

.00 

12 

.30 

.43 

.09 

.02 

.00 

.00 

.00 

.00 

.02 

.00 

.00 

.00 

13 

.29 

.30 

.08 

.01 

.00 

.00 

.00 

.00 

.01 

-.00 

.00 

.00 

14 

.17 

.31 

.07 

T 

.00 

.00 

.oo 

.00 

-   .00 

.00 

.00 

.00 

15 

.06 

.26 

.06 

.04 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

16 

.07 

.26 

.05 

.01 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

17 

.59 

.22 

.10 

.01 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

18 

.65 

.19 

.59 

T 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

19 

.65 

.18 

.80 

.01 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.37 

.12 

.42 

.01 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

21 

.03 

.12 

.24 

T 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

22 

.27 

.12 

.13 

T 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

23 

1  .66 

.10 

.10 

T 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

2. 34 

.  1  1 

.15 

.01 

.00 

.00 

.00 

.00 

.30 

.00 

.00 

.00 

.73 

2.81 

.16 

.1  1 

.no 

.00 

.00 

.28 

I 

.00 

.00 

.00 

26 

.43                .5". 

1.33 

.03 

.oo 

.00 

.00 

T 

.00 

.00 

.00 

.00 

27 

.2".              .36 

.38 

.03 

.00 

.00 

.1 

.00 

.00 

.00 

.00 

.00 

28 

.16        1        .32 

.22 

.03 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

29 

.12 

.17 

.01 

T 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

30 

.06 

.10 

.01 

.00 

.00              .00 

.00 

.00 

.00 

.00 

.00 

31 

.oa 

.06 

.00 

i        .00 

-no 

.nn 

""" 

.38               .78 

.02 

t 

.00                          T 

.01 

.01                   .01 

.00 

.00 

INCHES 

1.46              2.69 

1.6B 

.09 

.01 

.00               .01 

.04 

.05         1            .03 

.00 

.00 
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The  punchcard  format  is  illustrated  below. 
First  card. — 


1-9 

10-18 

19-27 

28-36 

37-45 

46-54 

+  XXXX.XXX 

+XXXX.XXX 

+XXXX.XXX 

+  XXXX.XXX 

+  xxxx.xxx 

+  XXXX.XXX 

NT(I,II) 
55-63 


NT(I,II+1) 
64-72 


NT(I,II+2) 

73-77 


NT(I,II+3) 
80 


NT(I,II+4) 


NT(I,II+5) 


+  XXXX.XXX         +  XXXX.XXX  +XXXX 


X 


NT(I,II+6) 


Second  card. 


NT(I,II+7) 


NUM 


(See  note) 


1-9 

10-18 

19-27 

28-36 

73-77 

80 

+  XXXX.XXX 

+  XXXX.XXX 

+  XXXX.XXX 

+  XXXX.XXX 

+XXXX 

X 

NT(I,II+8) 


NT(I,II+9) 


NT(I,II+10)  NT(I,II+11) 


NUM1 


(See  note) 


Note:  Column  80  of  cards  1  and  2  always  contains  a  1  and  2,  respectively.  Card  columns 
9,  18,  27,  36,  45,  54,  63,  and  72  of  card  1  and  columns  9,  18,  27,  and  36  of  card  2  will  contain  a  T 
when  0.000  ^<NT(I,II)  <  0.005;  otherwise,  the  columns  will  be  blank  where  I  represents  days 
and  II  represents  months. 

Thiessen  Weighted  Daily  Precipitation 

The  punchcard  format  for  Thiessen  weighted  daily  rainfall  is  identical  to  the  punchcard 
format  for  mean  daily  discharge.  The  wiring  diagram  illustrated  in  figure  E3  is  used  to  list  the 
data.  An  example  listing  is  depicted  in  table  E6. 


TABLE   E6.    --    1965   THIESSEN  WEIGHTED   DAILY  PRECIPITATION   FOR 
PONY  MOUNTAIN  BRANCH  WATERSHED 


1965        DAILY  PRECIPITATION  (inch.i) 

BLACKSBURG, 

/IRE  IMA 

PONY   MOUNTAIN    BRANCH 

13.12 

oat 

JA» 

FEB 

MAR 

APF. 

MAY 

JUNE 

JULY 

»u= 

SEPT 

OCT 

NOV 

OEC 

i 

.2  5S 

.00 

.00 

.01 

.00 

.00 

.1 

.44 

.00 

.43 

.00 

.00 

2 

.07S 

.00 

.01 

.00 

.00 

.43 

.00 

.14 

.00 

.00 

.00 

.00 

3 

.00 

.00 

.02 

.00 

.00 

.01 

.31 

.00 

.00 

.00 

.00 

.00 

A 

.00 

.00 

1.41 

.00 

.00 

.00 

.00 

.02 

.00 

.00 

.00 

.00 

5 

.00 

.00 

.21 

.00 

.00 

.00 

.39 

.00 

.00 

.00 

.00 

.00 

6 

.00 

.00 

.00 

.18 

.03 

.00 

.00 

.00 

.01 

.00 

.00 

.01 

7 

.22 

2.80 

.00 

.00 

.62 

.00 

.49 

.00 

.00 

1.57E 

.00 

.00 

e 

.06 

.01 

.00 

.13 

.00 

.00 

.00 

.14 

.00 

.00 

.00 

.00 

9 

.37 

.04 

.00 

.07 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

10 

.89 

.04 

.00 

.00 

.00 

.00 

.63 

.00 

.00 

.00 

.22 

.00 

11 

.04 

.00 

.00 

.12 

.00 

.00 

.19 

.00 

.89 

.00 

T 

.01 

12 

.00 

.03 

.00 

.00 

.00 

.03 

.00 

.00 

.62 

.00 

.00 

.00 

13 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.19 

.00 

.05 

.17E 

Ifl 

.00 

.17 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.01 

.00 

15 

.01 

.02 

.00 

.28 

.00 

.32 

.09 

.00 

.00 

.00 

.00 

.00 

16 

.16 

.00 

.00 

.00 

.00 

.15 

.00 

.00 

.17 

.00 

.00 

.00 

17 

.03 

.00 

.88 

.00 

.00 

.08 

.00 

.00 

.00 

.00 

.00 

.00 

IB 

.00 

.00 

.18 

.02 

.00 

.00 

.00 

.35 

.00 

.00 

.00 

.00 

19 

.00 

.00 

.04 

.14 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

20 

.00 

.00 

.07N 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

T 

21 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.42 

.00 

.00 

.19 

.03S 

22 

.00 

.00 

.00 

.03 

.00 

.00 

.00 

.09 

.00 

.14 

.20 

.00 

23 

.66 

.00 

.00 

.04 

.15 

.00 

.00 

.20 

.00 

.00 

.00 

.00 

24 

.21 

.19 

.00 

.22 

.01 

.00 

.00 

.00 

1.28 

.00 

.00 

.00 

25 

.00 

1.20 

.30 

.28 

.08 

.00 

.30 

.90 

.00 

.00 

.00 

.22 

26 

.00 

.00 

.47 

.00 

.00 

.00 

.oo 

.09 

.00 

.00 

.00 

.00 

27 

.00 

.00 

.00 

.24 

.02 

.00 

.00 

.00 

.00 

.00 

.02 

.00 

28 

.00 

.00 

.00 

.00 

.43 

.00 

.29 

.00 

.00 

.00 

.00 

.00 

29 

.00 

.00 

.00 

.46 

.26 

.03 

.00 

.00 

.00 

.00 

.00 

30 

.17 

.00 

.00 

.00 

.06 

.00 

.00 

.00 

.00 

.00 

.00 

31 

.00 

.00 

. 

.00 

.00 

.00 

.00 

TOT.L 

3.14 

4.50 

3.59 

1.76 

1.80 

1.34 

2.72 

2.79 

3.16 

2.14 

.69 

.44 

ST.  AV 

2.75 

3.38 

3.62 

2.96 

2.65 

3.29             3.20 

3.  14 

3.29 

2.17 

2.63 

: .  i : 
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Average  Monthly  Precipitation  and  Number  of  Years  of  Record 

The  average  monthly  precipitation  for  the  station  record  is  determined  and  punched  on  two 
cards.  The  first  card  contains  the  values  for  January  through  June,  and  the  second  card  contains 
data  for  July  through  December.  These  cards  must  be  saved  for  the  succeeding  year's  analysis 
because  they  become  the  station  average  monthly  precipitation  described  on  page  56. 


Maximum-Minimum  Temperature 

The  maximum-minimum  monthly  temperature  utilizes  the  same  data  fields  that  are  used 
for  mean  daily  discharge  and  Thiessen  weighted  precipitation;  consequently,  the  same  board 
wiring  (fig.  E3)  may  be  used. 

An  illustrative  example  of  the  maximum-minimum  temperature  listing  is  given  in  table  E7. 
The  punchcard  format  from  which  the  listing  in  table  E7  was  made  is  shown  below. 


First  card.-- 
1-4 


5-8 


10-13 


14-17 


19-22 


+  XXX 


+  XXX 


+  XXX 


+  XXX 


+  XXX 


NTMAX(I,J) 


NTMIN(I,J) 


NTMAX(I+1,  J) 


NTMIN(I+1,J) 


NTMAX(I+2,J) 


23-26 

28-31 

32-35 

37-40 

41-44 

+XXX 

+  XXX 

+XXX 

j;xxx 

txxx 

NTMIN(I+2,J) 


NTMAX(I+3,  J) 


NTMIN(I+3,J) 


NTMAX(I+4,J) 


NTMIN(I+4,J) 


46-49 

50-53 

55-58 

59-62 

64-67 

+XXX 

+XXX 

+XXX 

+  XXX 

+  XXX 

NTMAX(I+5,  J) 


NTMIN(I+5,J) 


NTMAX(I+6,J) 


NTMIN(I+6,J) 


NTMAX(I+7,J) 


68-71 


73-77 


80 


+  XXX 


+  XXXX 


X 


NTMIN(I+7,J) 


NUM1 


(See  note) 


Second  card.-- 
1-4 


5-8 


10-13 


14-17 


19-22 


+XXX 


+  XXX 


+  XXX 


+  XXX 


+  XXX 


NTMAX(I+8,J) 


NTMIN(I+8,J) 


NTMAX(I+9,J) 


NTMIN(I  +  9,  J) 


NTMAX(I  +10,  J) 


23-26 

28-31 

32-35 

73-77 

80 

+  XXX 

+  XXX 

+  XXX 

+XXXX 

X 

NTMIN(I+10,  J)  NTMAX(I  +  11,J)  NTMINU  +11,  J)  NUM2  (See  note) 

Note:    Column  80  of  cards  1  and  2  always  contain  a  1  and  2,  respectively. 
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TABLE   E7.    --    1965    DAILY  MAXIMUM    -  MINIMUM  TEMPERATURE   SUMMARY 
FOR  CRAB   CREEK  WATERSHED 


1965  DAILY  AIR  TEMPERATURE  degree!  f) 

BLACKSBURG,  VIRGINIA       CRAB  CREEK  W-I       13.07 

■ 

MAX 

HIM 

MAX 

MIN    I  MAI 

MIN 

...  .     w    s 

MAX 

MIN 

N.  ■ 

N   -. 

MAS 

MIN 

MAX 

MIN 

MAX 

MIN 

MAX 

MEN 

MAX 

MIN 

MAX 

MIN 

2 
3 
4 
5 

6 

9 
9 
10 

13 
14 
15 

16 

18 
19 
20 

21 
21 
23 
24 
25 

26 

27 
28 
29 
30 
31 

3  9 
58 
39 
45 
50 

52 
52 
63 
59 
42 

36 
44 
44 
30 
26 

21 
21 
24 
32 
40 

49 
59 
58 
57 
51 

64 
39 

45 

5  8 
2  7 

: : 

30 
32 
28 
26 
25 

36 
31 
42 
42 
28 

25 
23 
26 
18 

11 

15 
9 
14 
10 

21 

24 
31 

45 
40 
37 

39 
20 
19 
23 
10 
-2 

27 
27 
23 

27 
38 

59 
54 
65 
52 
57 

63 
61 
49 
28 
41 

47 
47 
56 
46 
47 

56 

29 
44 
35 
39 

23 
52 
62 

0 
7 
4 
9 
11 

28 

52 
43 
40 

51 
49 
27 
21 

17 

23 

34 
36 

16 
13 

24 
15 
18 
25 
16 

15 
19 
34 

57 
45 
33 

30 
41 
44 
39 
36 

40 
45 
49 
51 
51 

59 
46 
65 
45 

31 

33 
5C 
64 
58 
44 

66 
53 
65 
62 
52 

28 
31 
32 
33 
24 

22 
27 
30 
31 
23 

20 
28 
22 
25 

28 

30 
31 
32 
31 
14 

8 
22 
37 

35 

35 
29 
37 
52 
34 
28 

47 
46 
5  2 
51 
7C 

70 
75 
7  0 
68 
69 

65 
75 
it 
60 
60 

53 
67 
76 
56 
62 

70 
70 
BO 
63 
48 

75 
64 
48 
59 

'1 

29 
26 
23 

38 

36 

54 
53 

47 
48 

42 

50 
53 
42 
38 

39 
34 
49 
44 
42 

39 
51 
52 
45 
42 

45 
43 
42 
45 

7  6 
BS 

B3 
78 

». 

7  5 

7  6 
83 
84 

80 
71 

74 
76 
78 

82 
80 
78 
79 
76 

70 
79 
83 
83 
86 

--■ 
it 
80 

7C 

7  1 

50 
58 
54 
55 

57 

60 
60 
56 
59 
60 

58 
52 
53 
48 
52 

59 
61 
58 
57 
57 

60 
58 
59 
61 
63 

62 

64 
58 
49 
46 
48 

- 

82 
74 

70 

82 
BO 
80 
82 
86 

79 
80 
78 
76 
61 

54 

7: 
66 

"': 
-■: 

e : 

84 
86 
79 

7; 

7.7 

7  7 
86 

'->■ 
- 

6„ 

56 
54 
54 
56 

57 
61 
63 
63 
61 

63 
64 
60 
56 
52 

50 
50 
48 
48 
52 

54 
59 
61 
64 
57 

53 
57 

61 
64 
63 

7f 
'" 

BC 
79 

85 
82 

6' 
88 
84 

78 
75 
84 

85 

81 

84 
85 
81 
82 
76 

8 

85 

88 

9 

81 

e- 
-.. 
79 

59 
56 
65 
63 

61 

60 
65 
64 
64 
64 

64 

63 
60 
65 
66 

62 
58 
59 
61 
60 

60 
61 
66 
66 
71 

67 
67 
62 
62 
58 
61 

"1 

74 
76 
85 
84 

6  6 
85 
81 
80 
76 

" 

86 

86 

86 

89 

92 
92 

90 
86 
85 

70 
82 
78 
78 

6 

85 

7,: 

7h 

62 
59 
53 
56 
58 

60 
63 

65 
66 
60 

56 
58 
63 
67 
67 

69 
67 
67 
65 
64 

62 
67 
66 
64 
62 

64 
64 
51 
40 
42 
53 

75 

70 
70 

-: 

68 

7  7. 
77 
83 
84 
87 

77 
68 
78 
80 
83 

82 

67 
84 
84 
78 

82 

80 
72 
72 
60 

67 
62 
58 
72 
68 

54 

51 
53 
50 
57 

54 
49 
50 
57 

55 

65 
63 
63 
60 
63 

63 
62 
62 

60 
60 

60 
64 
62 
52 
41 

35 
43 
46 

48 

48 

76 
67 
68 
53 
58 

63 
53 

64 
61 

55 

72 
64 
62 

72 
76 

75 
62 
60 
66 
66 

61 
69 
56 
40 
54 

63 
60 
50 

45 
64 

65 

52 
44 

36 

30 

28 
45 
43 
39 

41 

38 
35 
28 
39 
41 

44 
44 
41 
44 
50 

53 
51 
40 
35 
28 

29 

33 
30 
20 
18 
30 

:  7 
60 
71 
65 
58 

66 

67 
64 
60 

45 

50 
48 
61 
57 
58 

t : 
58 
36 
49 
5« 

48 
50 
53 
48 

58 
58 

>f 

77 

40 
32 
28 
39 
32 

33 
37 
36 
44 
38 

38 
43 

44 
40 

32 

48 
26 
22 
34 
27 

37 

40 

32 

29 
34 

40 
36 
32 
21 
18 

34 

53 
43 
39 

77 

45 
35 
51 
56 
55 

64 
61 

64 
44 
48 

46 

44 
40 
36 
31 

36 

r- 
56 
55 

■- 
42 
46 
50 

6  7 
64 

15 
23 

34 

26 
26 

28 
22 
20 
28 
38 

34 
48 
40 
37 
36 

40 

30 
30 
20 
19 

24 
26 

31 
41 
26 

22 

17 
26 
24 

30 
36 

AV. 

42 

25 

-u 

24 

48 

29 

63 

42 

'■ 

ib 

■ 

57 

- ; 

62 

".  . 

60 

74 

55 

61 

37 

34 

4S 

78 

ST.  .V 

31 

4  I 

0 
24 

3  7 
44 

5 
24 

37lo 
531  31 

51  5 

t    t 

47 

79 

0 
56 

s; 

0 
60 

-  l 

0 

58 

61 
7« 

0 

51 

47 
66 

.0 

- 

MU 
7<" 

5 
31 

•6 
ma. 

5 
25 

Average  Monthly  Maximum-Minimum  Temperature 

The  average  monthly  maximum-minimum  temperature  for  the  station  record  is  punched  on 
two  cards.  The  first  card  contains  values  for  January  through  June,  and  the  second  card  contains 
data  for  July  through  December.  These  cards  must  also  be  saved  for  the  succeeding  year's 
analysis. 
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LISTING   OF   THE   SOURCE   STATEMENTS    FOR  PROGRAM  A 


C       PROGRAM  A 

C       PRECIPITATION  REDUCTION  PROGRAM 

SlPFTC  Dl 

DIMENSION  M(  12)  ,MHR( 12) .P( 1200) . T I  ME  I  1 200 ) . I MT ( 1 2 )  .P  I  (  1 2  1  .  REC  I  <  1 2  1 
C       STORAGE  FOR  DAYS  PER  MONTH 

DATA  M/ 31. 28. 31. 30. 31. 30. 31. 31. 30. 31. 30. 31/ 
C       TIME  INTERVALS  FOR  MAXIMUM  INTENSITY 

DATA  ]MT/2.5.10.15.20.30.60.l20«2'«0.360»720.l440/ 
REWIND  0 
C      READ  FIRST  INPUT  CARD 

100  READ(5.501ILTyPRE,N£ND.  I  GAGE.  1 W I D.MONTH.NDAy.NyE AR  ,HR  .  AM  I  N  .  GH,  K.UF' 

1AT.KSFO 
501  FORMAT  I  1X.A1.I2.4X.A2.A4,3I2.2{F2.0,8X).F4.2,28X,A3.I5) 

DO  9nn  1=1.12 
9no  BECI  ( I  1=0. 

KPAC-c  =  0 
LSW  =  0 
*1  =  1 
C       LEAP  YEAR 

NY£ARO=NYEAC 
LVRE=l 

NRO  =  0 
A=NYEAR 

N  =  A 

JF( A,FO.AA)GO  TO  2 

M(2)=?R 

CO  TO  3 

2  M(?)=pO 

C  STORAGE  OF  ACCUMULATED  HRS  PER  MONTH 

3  MTOT=0 

DO  4  1=1.12 

MTOT  =  MTOT+M<  I  )»2<4 

4  MHR I  I  )=MTOT 

C      CONVERT  TIME  TC  hRS  AND  STORE  FIRST  INPUT 

HO=HP+AM1N/60. 

L  =  0 

NU«=1 
kodF=o 
A  I  =0. 
ACT]=0. 

STAC=0. 

oac=o. 

AMAC=0. 

YRAC=0. 

ST  =  0. 

ACP=0. 

ACTIYB=0, 
C       COMPUTE  BEGINNING  ACCUMULATED  T  1  MF 

IF  (MONTH.  NF.l  lC'O  TO  SI 

AA=NnAY_l 

T1=AA»?4.+HP 

GO  TO  52 
51  T=MHP(M0NTH-1) 

TT=IN0AY-1 1»24 

GO  TO)50,12) .Kl 
50  T1=TT+T+HR 
5?  T!=T1 

Kl=? 

C       OUTPUT  FJPST  DATA  CARD 
NRR  =  5 
r,o  To  7^>n 
5<-  WRITE{6.515)NUM,IGAGE,  I  wID.MONTH.NDAy  .NyEAR.LTyPRE  .HR  ,T  I  .AI  .ACP.5T 
1AC.Dac.amac  .r,0CE 
515  FORMAT  (  1H  I6.3x,A2.3X.A4.lS.l4.l3.10x,Al,F12.4,3x,3F11.4,2F12.4,Fl 


10. 


•  If 


NYEAR.HR.Tl .AJ  .ACP.STAC.OAC, 
A1.I3.2X.A3.I5) 


Wftl  TE (0.600)  I« ID, I  GAGE. MONTH 
1  .LTYPRE  .K.ODE  .*UPDAT  ,NuM 
600  FORMAT  (Ai..  U.A2.313.FB.4.F10.4,5F8 

NRR  =  1 

GO     TO    7O0 
73n    x<iEOO=K^FO 

MONTHO=MONTH 

NDAYO=N0AY 


C  READ  SECOND  DATA  CARD 

5  READ  I  5.500  (LTYPRE  .NEND.  I  GAGE  .  IW  I  D. MONTH  .NDAY  .NYEAR  .HR  *  AM]  u  .GH  .K.SEQ 
500  FORMAT  I U,A1.I2.4X.A2.A4.3I2.2[F2.0.8X).F4.2.31X,I5) 
IFINEND.LT. 91GO  TO  10 
LYRE=? 
GO  TO  ^7 
10  HR=HR>AMIN/60. 
C       DETERMINE  TIME  INTERVAL 
IF(MONTH.NE.l )GO  TO  51 
A6=N0AY-1 
T?=AA»?4.+HR 
GO  TO  15 
12  T?=TT+T+HR 
15  T1=T2-T1 

IFITI.GT. 0.0)00  TO  7000 

WRI  TE  I  6.  7  003)  IG>GE.  I  W  I  L  .MONT  H  ,  Nu  AY  .  NYE  AR  ,hR  ,  K.SEOO.  K.SEG 
7003  FORMATI1H  9X.A2.3X.A4. 15. 14. I  3.1 1X.F12.4.53H   NEGATIVE  OR  ZERO  TIM 
IE  INTERVAL  BETWEEN  CARL  NUMoERS .  I  7 . 4H  AND. 16) 
GO  TO  5 
7000  T1=T? 
C       END  OF  STORM  SUMMAPY 
I  F  (GH.GT  .r.HOJGC  TO  55 
ACP=0. 
IFITI.LT.l.r )GO  TO  56 

47  |F(STAC.GF.0.251GO  TO  <*5 

48  STAC=0. 
ST=0. 
ACP=0. 
AI=0. 

L  =  n 

GO  TO  16 

55  ACP  =  C,H-GHO 

56  AI=ACP/TJ 
STACrSTACACP 
YRAC=YPAf+ACP 
IFtACP.EQ.O.OJGO  TO  57 
ACTI=ACTI+T1 
ACTIYR=ACTI YP*T  I 

57  L=L*1 


P(L  )  =  ACP 
LL=TI«60.+.5 

ALL=LL 
ST=ST+ALL 
TIMF(LI=LL 
C       FND  OF  DAY 

16  IFfNDAY.EQ.NDAYO. AND. MONTH. EO.MONTHOIGO  TO  30 
DAC=ACP 
GO  TO  31 

30  OAC=DAC+ACP 
GO  TO  35 

C       END  OF  MONTH  SUMMARY 

31  IF(MONTH.£0,MONTHO)GO  TO  35 
K0DE=6 

WRITEI6.5201NUM.1GAGE. I w 10 .MONTHO.NYEAR. ACT  I .AMAC.KODE 
520  FORMATI1H  I  6  .  3X  .  A2 . 3X , A4 , [ 5 , 4X , I  3 .26X . F 1 1 . 4 , 46X , F 1 0. 4 , I  5 ) 

WRITE(0.6Cl  I  IWID.  I  G  AGE.  MONT  HO.  NY  EiR,  ACT  1  .  AM  AC  .KODE  .K.UPCAT  ,  NUM 
6C1  FORMAT(A4.1X,A2,I3,3X.I3.8X,F10.4,32X,Fe.4.I6.2X,A3.I5) 

NRR  =  ? 

GO  TO  700 

731  GO  T0(34,8C) .LYRE 

34  AMAC=0. 
K00E=0 
ACTI=0. 

35  AMAC=AMAC+ACP 
GO  TO  54 

C       END  OF  YEAR  SUMMARY 
80  <ODE=7 

WRITE(6.5K)NUM,IGAGE.  I  W  I  D.NYE  AR  ,  ACT  I  YR.  YRAC.KODE 
51U  FORMATIlH  I6.3X.A2.3X.A4.9X.I3.26X.F11.4.46X.F10.4.I5I 

WRITE(^.6L2)IWlD,IGAGE.NYEAR.ACTlYR,Y9AC.KODE.»CUPDAT  ,  NUM 
602  FORMATIA4.1X,A2.6X,I3.8x,F10.4.3  2x.FH.4»l6.2x.A3.I^I 
NPP  =  3 
GO  TO  700 

732  KODE=3 

numa=num+i 

wri  t£(6.543inum,  ( reci  (  i  )  ,  i  =  1 16i  .x.0de.numa,  ( rec 1 (  i  )  .  i = 7  , 1 2 )  .k.ooe 

543  F0RMAT11H0I6.4X.44HMAXIMUK  INTENSITY  FOR  y£AR ( 2 , 5  , 1 0 . 1 5 . 20 . 30M ) , 2X 
1.3F11.4.2F12.4.C10.4.I5/1H  I6.4X.44HMAMMUM  INTENSITY  FOR  YEAR(1,2 
2.4.6.12.24HRSI.2X,3F11.4.2F1?.4.F]0.4.[^) 

WRITE (0.607)  Iwt D.I  GAGE. NYEAR, (RE  CI  I  I )  .  1  =  1 ,6)  .K09F ,*UP0AT ,NuM. I WI 0. 
1 IGAGE.NYEAR, (RECI  (I  I. 1=7. 12)  , KODE , KuPDAT ,NUMA 
61  7  FORMAT(A4.1X.A2,6X.I3.6x.Fin.4.5F8.4,  I6.2X.C3.I5/A4,lX,A2,6X.I3,fiX 
1.F10.4.5F8.4.I6.2X.A3.  15) 
NU"=NUMA+1 
CALL  CHKPT(30) 
IF(NFN0.E0.99)G0  TO  8C3 
NREC0=99 
GO  TO  800 
803  NRECD=999 
800  KODE=? 

WRI  TE(6>6  3R)NUM,NRFCD.KUPDAT iKOOE 
6C8  FORMATdH  I6.8X,I4.55H   WATERSHED  IDENTIFICATION  FOR  UPDATING  STOR 
1AC-F  TAPF  =  .A3.47X.I5) 
WRITE(".6C4)  NRFCO.KODE  .K'JPOAT  ,NJM 
604  FORMAT!  I 4.73X  .  I 3.2X, A3 , 1 5 1 
IF INEND.E0.9IG0  TO  100 
PEwlNO  0 
STOP 

MAXIMUM  INTtNSITY  FOR  SELECTED  TIME  INTERVALS 
45  00  148  1=1.12 
U8  PI  (  I  I  =0. 

00  250  1=1.12 
LFNO=0 

AT  =  IMT(  I  I 

IFIAT.GT.ST1GO  TO  251 
DO  240  J=1.L 
PROP2=PU)  /TIME  ij  1 
MM=1 

LEN=TIME (J) 
AP=AP*P[ j ) 
IFIK.NE.01GO  TO  170 
LENO=LENO*LEN 
ATT=ATT+T|MEIJ) 
LBEG=LFNO-lMT( I ) 
IFILPEGJ240  -65.160 
16r  K=\ 

ALBEG=LRfn 
COMP=AP-AL8EG*PROP2 
AMAX=COMP 

1F( J.GT.l )GO  TO  163 
MM= IMT (  I  1  +  1 
GO  TO  169 
163  MM=AT-IATT-T IM£( J) )*1. 

GO  TO  169 
165  COMP-AP 

AMAx=COMP 
GO  To  ?ur 
j60  PP0P1=P(]  1/TIMEd  ) 
AKOU.NT  =  l. 
NN=1 
170  00  230  N=MM.LEN 

IF  I AKOUNT.LE.T IME (NN)  |G0  TO  186 
NN=NN*1 
AK0UNT=1. 

PROP  1 =P ! NN ) / T I  ME ( NN ) 
186  COMP»COMP+PROP2-PROPl 
AKOUNT=AKOUNT  +  l  . 
IF(AMAX.LT.COMP|AMAx=COMP 
?JP  rnNTtNUc 
24^  CONTINUE 
25"  PI(  I  )=60.»AMAX/AT 
251  KODE=9 

NUMA=NUM+1 
NRO=NRO*1 

wRITt  (6.52S)NUM,IGAGE. I wl O.MONThO.NDAyO.NYEAR »NKO.  (  P  1  (I  I  .  I  =  1  .  fc I  . XO 
IDE  .NUMA.  I  GAGE.  I  WIO.MONTHO.NDAYO.NYEAR.NHO.  (P|(I).I=7,12)  .X.OOE 
525  FORMAT! 1h  I6.3x,A2,3x.A4.I5.I4,I3.I5.21x,3F11.4,2F12.4,F10.4.15/1h 
1  l6.3X.A2,3X.A4,I5.|4,l3.I5.2U.3Fll.A.2F12.4.F10.fc,I5] 

WRIT£(G.603)IWIC/.  I  GAGE  .MONThO.NDAvO.NyF  AR  ,NRO.  (PI(II.I  =  1.6)  .KODE.K 
1UPDAT.NUM,  IWIO.  1GAC;  .MCNTHC.N?AYO.NYEAP.NRO,(P[ (  11.1.7,12)  .HODE.KU 
2POAT ,NUMA 
603  FORMAT(A4.1X.;2.?I3.3X.|t..Fin.4.5F8.4,l6,2x.A3,I5/A4,U.A2,3I3.3X. 
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CONTINUED 


H5.FlC4.5Ff:.4.I6.2X.A3.I5> 

NUM=NUMA 

LINES=LINES*2 

N6R  =  4 

GO  TO  700 
733  KODE=0 

MAXIMUM  INTENSITIES  FOR  PERIOD  OF  RECORD 

DO  910  1=1.12 

IFIPK  I  I.GT.RECH  I  1  IRECI  I  IlxPI  [  I  1 
910  CONTINUE 

GO  TO  48 
700  IFILSW.EO.OIGO  TO  710 

LINES=LINES*1 

IFILINES.LE.S6IG0  TO  705 
710  KPAGE*KPAC.E+1 

WRITEI6.539IX.PA&E 
539  FORMATI 1H1122X.4HPAGE.I3I 

WRITEC6.54CI 


540  FORMAT! 1H  35X.57HRA I NFALL  TABULATIONS-WATERSHED  ENGINEERING-BLACKS 
1BURG»VA„ ) 

WRITEI6.541 I 

541  FORMATU31H0  SEO.  GAGE  WATSHD  DATE  STORM  TYPE  TIME  OF  DAY 
1  TIME  INTERVAL  INTENSITY  ACCUM.  STORM  ACCUM.  D  ACCUM.  MON 
2ACCUM  CODE  I  "".CUM.  MON 

WRITE  I  6. 542  I 

542  FORMAT C125H   NUMBER   NO.  NO.   MO.  DAY  YR    NO.   PREC     HOURS 

1      IN  HOURS      IIN/HRI  PER  TIME     (INCHES)'    (INCHES)   I  I NC 

LINES=6 

IFILSW.NE.OIGO  TO  705 

LSW=1 

GO  TO  720 
705  NUM=NUM+1 
720  GO  TOI73C. 731. 732. 733.541. NBR 

END 


APPENDIX  LIST  A2 .    --    DETAILED   DESCRIPTION   OF   THE   VARIABLES    USED   IN   PROGRAM  A 


AMIN 

GH 

HB 

IGAGE 

IW1D 

KSEQ 

KUPDAT 

LTYPRE 
MONTH 
SDAS 
NEND 


ACT 

ACT1 

ACTTYR 

hi 

AMM 

DAC 

HB 

1GACE 

IWTD 


Des 


riptio 


Minutes  portion  of  the  tine  of  day. 

Accumulated  precipitation  in  inches  (chart  line  depth). 

Hour  portion  of  the  time  of  day  (military  time). 

Raingage  identification. 

Watershed  identification. 

Sequence  number  for  input  data. 

Raingage  identification  to  be  used  in  conjunction  with 
sequence  number  to  update  data  (input/output)  when  placed 
magnetic  tape.   (See  Table  A4) . 


(See  Table  A3). 


Type  of  preclpitatio 

Month. 

Day. 

Code  identifying  the  end  of  record. 

NEND  =•  0:   Continue  normal  processing. 

(All  basic  data  cards  contain  a  z 
NEND  =  9:  End  of  intermediate  raingage  stat 
NEND  -  99:   Last  raingage  station. 

Year.   (Last  two  digits,  e.g..  64  for  1964.) 

Precipitation  in  inches  during  time  interval  TI . 
Total  hours  of  precipitation  for  the  month. 
Total  hours  of  precipitation  for  the  year. 
Intensity  for  given  time  interval  (in./hr.). 
Monthly  accumulation  (precipitation  in  Inches). 
Dally  accumulation  'precipitation  in  inches). 
See  input. 
See  input. 


RODE  Identification  for  the  type  of  output. 

KSEQ  See  input. 

KSEQO  Sequence  number  of  last  data  card  processed.   (See  input  - 

KSEQ). 

LTYPRE         See  input. 

MONTH  See  input. 

NDAY  See  input. 

NRO  Storm  number  (all  storms  >  0.25  inch  are  numbered  in 

sequential  order  beginning  with  1). 

NRECD  End  station  record  code. 

NRECD  =  99:   For  intermediate  stations. 
NRECD  =  999:   For  last  station  processed. 

NUM  Sequential  list  number  for  output. 

KUMA  Sequential  list  number  (NUM+1). 

NYEAR  See  input. 

PI (I)  Maximum  Intensity  for  period  of  record  for  time  intervals 

1=1,12         IMT(I)  in  inches. 

STAC  Storm  accumulation  (precipitation  in  inches). 

RECI(I)        Maximum  intensities  for  selected  time  intervals  WTO)  for 
1-1,12         given  storm  in  in./hr. 

TI  Time  interval  (T2-T1)  in  hours. 

YRAC  Yearly  accumulation  (precipitation  in  inches). 

Main  Program 

(Input/output  variables  not  included) 

A  Becomes  NYEAR/4  for  leap  year  test. 

AA  Truncated  A  In  leap  year  test.   (See  variable  N) . 


AX0UNT 

Index  counter. 

ALBERC 

Variable  used  to  determine 
CO  LBERC. 

the 

lt.it 

ALL 

Sec  TI. 

AMAX 

See  COMP. 

AP 

Accumulated  precipitation 

in  ir 

ichei 
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CONTINUED 


CHKPTOO) 

COMP 

GHO 

HRO 


Closed  library  subroutine  for  the  IBM  7040  system  which  allows 
restarting  the  program  at  the  location  indicated  by  CHKPTOO) 
in  the  event  of  machine  failure. 


al  in  in./hr. 


Maximum  precipitation  for  selected  time 

Chart  line  depth  in  inches  for  the  last  data  card  read. 

Hour  of  the  last  data  card  read. 

Variable  integer  used  to  index  IWT(I),  M(I),  RECI(I),  PI(I), 
MHR(I). 

Variable  integer  used  to  index  TIME(J),  P(J)  . 

Index  code  having  possible  values  of  0  or  I. 

K  =  0:   The  first  value  of  maximum  Intensity  search. 
K  -  1;   Subsequent  values. 

Index  code  having  possible  values  of  J.  or  2. 

Kl  =  1  :   First  data  card  for  given  station. 
Kl  =  2 :   Subsequent  data. 

Sequential  page  number. 

Variable  integer  used  to  index  TIME (L) .  P(L)  and  represents  t 
upper  limit  of  the  maximum  intensity  search  routine. 

Defined  as:   . 

LBEG  =  LENO  =  1MT(I) . 

This  variable  used  to  initiate  the  maximum  intensity  sea 

Length  of  time  interval  in  minutes  that  is  being  searched  for 


M(I) 

1=1,12 


Mi  NTHI 

•■'  1  .  i  ■ 


PR0P1 
PR0P2 


Number  of  days  per  month,  e.g.,  January  has  31,  February  28 
or  29,  etc. 

Accumulated  hours  by  months  for  the  year. 

Variable  integer  sepcifying  the  beginning  of  the  search 

Month  of  the  last  data  card  processed. 
Accumulated  hours  for  the  year. 
Truncated  A;  equivalent  to  AA. 


Variable  integer  used  to 
page  number  routine. 


Day  of  last  data  card  processed. 
Variable  integer  used  to  monitor  the  pr> 


ultiple  branching  from  the 


on  of  the  leading 


WEAR. 

Precipitation  for  given  time  interval  In  Inches. 

Precipitation  per  minute  for  trailing  edge  of  sea 

Precipitation  per  minute  for  leading  edge  of  sear 


Accumulated 


the  beginning  of  MONTH. 


Number  of  li 


printed  per  page  . 


Accumulated  time  in  hours  from  the  beginning  of  the  year  to  the 
beginning  of  TI. 

m  the  beginning  of  the  year  to 


Variable  index  having  possible 
LSW  =  0:  Print  on  a  new 
LSW  =  l:   Continue  printl 

Variable  index  having  possible 
LYRE  =  1:  Normal  process 
LYRE  =  2:   End  of  year  su 


Defined  as: 

TT  o  (NDAY  -  1)  *  21*    (hours). 
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PEA 


C      PROGRAM  R 

C       RUNOFF  REDUCTION  PROGRAM 

SlBFTC  DA 

DIMENSION  Ml  12 )  .MHR (  12 )  .GAGR<  1  70  1  .CFSR I  1 70  I  .GAGPI 50)  .CFSP! 50 
1125)  .V0LM(7) •MDATEI7) .NDATE17) *Q ( 25 ) tOT 1 25 1 .OYHI 25) .QTYRI25 ) 
2(15)  .RRAT 115)  »AMAX(7) .R!600)  .T6I600 I « K ST  I  7  )  » AKST I  7 1 .AMHR! 121 
37) .PROP3I71 , TDAYI7) .PER! 125) 
C      VECTOR  FOR  DAYS  PER  MONTH 

DATA  M/31.28. 31 #30.31 i 30.31. 31. 30.31.30.31/ 
NRAP8R=1 
RFWIND  0 
C       LOAD  FLOW  DURATION  LIMITS 
DO  40  J=1.25.5 


.FLOW 

RPOND 
COMPi 


jj  =  j  + 


.  I=J.JJ 


40  READ(5.610) (FLOW!  1  ) 
610  FORMAT(5F6.5 ) 
C       LOAD  MAXIMUM  VOLUME  LIMITS 
READ  I  5.615) (VOLMI 1 ) . 1  =  1 .7) 

615  FORMAT! 7F5.0 ) 

1  READ! 5.600)NBR.J3.J4,J6.J7 
600  FORMAT15I 1 ) 
C       LOAD  RATE  AND  PONDAGE  CORRECTION  FACTORS 
GO  70(9000, 9001 ) »J6 
9001  DO  41  1=1.15 

4  1  READ!  5.616)  1D1  ,  RPOND  (  IDl  1  .RRAT(  ID1) 

616  FORMAT) I2.2F10.10) 
C       INITIALIZATION 

9000  WRITE(6.9551 ) 

9551  FORMAT! 1H137X.A9HRUNOFF  COMPU T AT [ ONS-wAT ERbHED  ENG I Nt ER I N(j- 

1 ,7HURG.VA./lMO^X.33HBASIC  CONSTANTS  USED  FOR  ANALYSES/34H0 

2  BASE  FLOW  DURATION  RATtS) 
DO  20O3  J=1.25.5 


•  1  = 


JJ=J+4 

2C93  WRITEI6.2077)  I FLOWI  I  I 

2077  FORMAT! 1CX.5F8. 5) 

WRITE  (6.2078)  (VOLMI  |  )•  1  =  1.7)  .  NBR  .  J  3  «  J4  •  J6  .  J  7 

2078  FORMAT(40H'J  MAXIMUM  VOLUME  L  I  M  I  T  S  I  M  I  NUTES  I  /  10X  .7F7  .0/ 
1  PARAMETER  DATA/10X,AHNRR=.  I  2.4H  J3=,I2.4H  J4=.I2.4H  J 
2.4M  J7=.I2/47H0  RATING  AND  PONDAGE  CORRECTION  FACTORS 

DO  42  1=1.15 
42  WRITEI6.2092)  I  .RPONO!  I  I 
2092  FORMAT! 1CX, 14. 214X.F12. 
GO  TO! 3.9021 ) .NRAPSR 


ATI  ]  ) 


KPAGF=0 

KP=r 

RUNTI=0. 

ACDR=0. 

ACMR=D. 

ACYRR=0. 

KODE=0 

KV  =  0 

KV3  =  0 

TOTYRP=0. 

TOTAL=0. 

TOTALO=0. 

TOTYRf)=n. 

NUM=1 

LINES=0 

LSW  =  0 

NF.L0W=1 

DO  6000  1=1 

6000  AMAX! I )=0. 

DO  16  1  =  1.2' 

01 1 1=0. 

OYR  1  I  )=0. 

OTYR!  I  )=0. 
16  OTI I )=0. 
C      LOAD  PONDAGE  AND  RATE  TABLES 
GO  TOI38. 90201 »J7 
9021  LSW=C 
LP  =  7 

GO  TO  2000 

9020  GO  TOI25. 201 .N6R 

20  00  23  J=l .50 

READ! 5.60  5 (GAGPI J) .CFSP! J) »JE 

605  FORMATIF4.2.6X.F5.2.49X.15X, 1 
IFIJEND.EO.91G0  TO  25 

23  CONTINUE 

25  DO  34  J=1.170 

READ! 5.606 1GAGR (J).CFSR<J).JF 

606  F0RMATIF4.2.6X.F10.6.49X.10X. 
IF  IJEND.E0.9IGO  TO  38 

34  CONTINUE 

38  GO  TO'^0,51) .NRAPBR 

50  READI5. 620) IW.IOW. MONTH 


iNYEAR.HR. A 


ST .NENO.NTCH 


IF2. 


620  FORMAT15I2. 

IF!NEnD.G£.9)G0  TO  953 
IF(NTCH.NE.9)GO  TO  51 

NRAPAR=2 
GO  TO  1 


51 


-IR=HR* 
IFIK.N 


/60. 

0)GO  TO  55 


AA  =  N 

1F(A.E0.AA1G0  TO  90 

M121a26 

GO  TO  100 

M(2)=29 

STORAGE  OF  ACCUMULATED  HRS  PER  MONTH 

MT0T=O 

DO  105  1=1.12 

MTOT=MTOT+M|  I  1 "24 

AMHRl  I  ) =  M  f  1  ) »24 

MHRI  1  )=MTOT 

AMHT  =  MHR I  12) 

IWlD=IW«10e+IDW 

MP=MONTH 

NP=NDAY 

TP  =  HR 


KUPDAT=KUP 
L8=6 

GO  TO  2C00 
55  IFIMONTH.NE.l ) GO  TO  65 
AA=NDAY-1 
T1=AA»24.+HR 
1       BRANCH  TO  RATE  AND  PONDAGE  TABLES-ST ATEmENT  700 
GO  TO  7C0 

65  T=MHR IMONTH-1 ) 
TT=(\DAY-1 )*24 
T1=TT+T+HR 

GO  TO  7?0 

66  IFIK.GT.01GO  TO  80 
TI  =  T1 

GO  T0179.2101 .N6R 

80  TI=T1-T10 

IFIT1.LE. 0.0)00  TO  217 

GO  TOI3078.210I .NBR 
217  WRITE  16.308  2  1  I  w  I D  .MONT  h  ,NDA  y  ,NyE  AR  ,hR  .ht  .  T  I  .K.SEQO  .XSEQ 
3082  FORKATUh  15.313.F8.4.I-7.2.F10.4.53H   NEGATIVE  OR  ZERO  TIME  JNTERV 
1AL  BETWEEN  CAR^  NUMBERS. 1 5 .4H  AND. 151 

GO  TO  50 
3078  RRAT£= IRATE+RATEO )/2. 
3C79  IF1PEAK.GT.RRATE1GO  TO  82 

PEAK=RRATE 

mp=monTh 

np=nday 

TP  =  HR 

IF(NPR.E0.2)TP=HRO 
82  GO  TO(8] .161 1 iNKR 

81  RUNT1=PRATE*T I 
ACDR=ACDR+RUNT I 
ACYRR=ACYRR+RUNTI 

79  1FIK.EQ.O>GO  TO  110 

161  GO  TOI85.86) .NBR 

85  Ie!MONTHO.EO.MONTHlGO  TC  16C 
f>7  KODE  =  fi 

C       BRANCH  TO  FLOW  DURATION  OUTPUT  ROUTINE 
GO  TO  orir 

86  IF  (MONOO.FO.MONTHO)C-O  TO  160 
STM=MONTHO 

MONTHO=MONnO 

G^  TO  87 
Q51  ACMR=RUNT I 

KODE=0 

CALL  CHKPTI30) 

GO  TO  111 
160  ACMR=ACMR+RUNT I 
111  GO  TO! 11C. 218) -NPR 
IT  GO  TOf  3---01  .30HO)  ,J3 
3000  WRITE!6.7Q1) Iw!D,MONTH,nDAy,nyEAR,HR,hT,T1 , RATE. RRATE. RUNT] .ACDR.A 
lCMR.ACYRR.NEST.rODE.NuM 

791  FORMAT  llH  15.3I3.F8.4,F7.2.F10.*>.2  3X,F1  1  .  5  .  F  1  3  .6  .4F9  .  5  .  A  1  ,  [2.  16) 
Wfll  TE  IU.960)  IWlD.MONTH.NDAY.NYEAh  .HR.HT.Tl  ,  RATE.  Rf-  ATE.  RUNT  I  .ACDR  .A 

1CMR.ACYRR.NESI ,*ODE .^U^PAT .NUM 

960  FORMAT!  [  5  .3 1  3 .  F8.4  .F6.2  .HO.4.2 1X.6F10  .5.  Al  ,  1 2,  IX  .A3  ,  15  I 
LB=1 

GO  TO  2000 
30C1  IFIK.GT.01GO  TO  84 

K  =  l 

GO  TO  70 
84  IF(HR.NE.24.0)GO  TO  177 

AtfGDR=ACDR/24. 

KODE=7 
3CC7  GO  T0O008.30C9)  .  J3 
30  09  WRITE  16,792)  I  W  I  0  .  MONTH  ,NOAy  ,NYE  AR  ,  AVG0R  .  ACDR  .  AC  YRR  .K.ODE  .  NUM 

792  FORMAT11H  1 5  .  3  I  3 , 59X  ,F  13.6.2  I 9X . FQ.5 ) . I  3. 16 1 

WRITt(L'.961  1  I  w  I  Lf.MONTH.NOAY.NYEAR.AvGOR  .  AC  OR  ,  AC  YRR  .K-ODE  .K.UPDAT  ,NUM 

961  FORMAT!  1  5 .  3  I  ?  ,  5  5X  .  2  (  F 1 0  .  5  .  10X  )  ,F  10-5.  I  3.  U.  A3. 15) 
LB--2 

GO  TO  2000 
3008  ACDR=0. 
K0DE=n 
C      BRANCH  TO  FLOW  DURATION  SUMMARY  ROUTINE 

177  GO  TO! 179.178) .NBR 

179  IF (HT.EQ.O.O.AND.HTO.EO.O.O)GO  TO  1500 
GC  TO  600 

178  IFIHTO.EQ.O.O.AND.HTOO.EQ.O.OIGO  TO  1500 
GO  TO  800 

C       BRANCH  TO  MAXIMUM  VOLUME  SEARCH  WOUMNc 
1500  GO  TO! 1302,1000) . J4 

1302  IF(NENC.E0.9.OR.NEN0.£U.99)G0  TO  87 
73  GO  T0I75.76) .NBR 

75  HRO=HR 
MONTHn=MONTH 
T10=T1 

76  KSEQO^K^FO 
RAT?n=RAT= 

GO  T0!5O»(,9)  ,NBR 
69  PONDO=P|">N0 

AJRAT0=AJRAT= 
I F (KNUM.GF.2 1 AvGO=AvG 
MONOO=MONTHO 
HTOO=HTO 
HTO=STHT 
TIO=STTI 
TlO=STT! 
HRO-STHR 
MONTHO=STMO 
NOAYO=STNO 
GO  TO  50 
210  KNUM=KNUM+1 
STNO»NDAY 
STMO=MONTH 
STT1«T1 
STT  I  =T I 
STHR=HR 
STHT=HT 

IFfKNUM.NF.l 1GO  TO  215 
K  =  l 

AJRATF=»ATF 
RRATF=RATE 
PCORRO=0. 
HTOO^HT 
MONOO=MONTM 
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GO  TO  70 

215  DELGH=HT-HTO 
AvG=DELGH/TI 
IF1K.NUM.LT. 3)GO  TO  218 

21*.  DAVG=AVG+AVGO 

PCORRO=DAVG#PONDO 
AJRATE=RATEO+PCOPRO 
IF IKP.NE.0lGO  TO  216 
KP=1 
AJRATO=AJRATO+PCORRO 

216  RRATE=(AJRATE+AJRATO)/Z. 
JFIRRAT£.LT.0.0)RRATE=O. 
RUNTI=RRATE*TIO 
ACDR=ACDR+RUNTI 
ACYRR=ACVRR*RUNTI 

GO  TO  3079 
218  GO  TOI301 1,3010)  .J3 
3  CIO  WRITE  (6. 7  94)  I  w  I  D.mONThO.NDAyO.NYEAR.HRO.hTO  .  T  ICRATEO  .PCORRO. 
1  E.  RH  ATE.  RUNT  1  .  ACDR  .  ACMR ,  ACYRR  »NE  ST  ,  K.ODE  .NUM 
79*.  FORMAT!  1M  I5.3I3,F8.4,F7.2.F10.4,F10..5.F13.8.F11.S.F13.6,4F9. 
1I2»I6I 

wR I TE IC .964) Iw IU,MONTmO.NPAvOiNY£AR,hRO.MTO.T 10  ,R A T EO .PCORRO . 
IE .RRATE.RUNT 1 . ACDR * ACMR . AC YRR . NE ST . KODE , KUPDAT  »NUM 
96  A  FORMAT  I  I  5 t 3  I  3 i F 8.4 |F6. 2 iF 10.4.F10. 5 »F 1 1. 8 • 6F10.5 »A1 » I  2 » IX • A3 • 

Le  =  3 

GO  TO  2003 
3C11  JF|HNUM.lT.?)G0  TO  70 

Hft=HRO 

TI  =  TJ0 

T1=T10 

KONTH=MONTH0 

N0AY=NDAYO 

GO  TO  84 
C       END  OF  YEAR 

953  GO  T0I903.955) .NBR 
903  KODE=8 

GO  TO  900 

955  AVG=0. 

GO  TO  214 

956  K0DE=6 

GO  T0( 111 1.4C7C  J .  J4 
u07~    WRITE(A.7o6) 
796  F0RMAT144HC  MAXIMUM  VOLUME  FOR  SELECTED  TIME  INTERVALS) 

L1NFS=L1NES+? 

DO  4071   1=]  .7 

IFI I.FD.l )G0  TO  4071 

IFIiMAXl 1 ).GE.AMAX( 1-1 ) )G0  TO  4071 

AMAX1 I )=AmAX< 1-1) 

MDATEI  I  l=MDATE<  1-1) 

NDATE( I l=NDATE< 1-1) 

T5AYI  1  )  =  TDAY(  1-1  I 
4071  CONTINUE 

DO  190  I=].7 

HPS=VOLMI  I  )  tt>Q, 

WRITE (6.795)  IWlD.MDATEf  I  I  ,ND-TF(  I  ) .NYEAR.TDAYI  I ) 
1NUM 
795  FORMATflH  I  5 . 3  I  3 . F8 .4 , F 1 2 . 5 .F 1 0 . 0  .  78x ,  I  3  .  I  6  ) 

WRI TEIL.9621 IWlD.MDATEl I ) .NDATfl I ) . NYE AR , T DA i ( I ) 
1KUPDAT.NU" 
962  FORMAT ( I5.3I3.F8.4,F9.5.F6.0.82X.I3.1X,A3,I5) 

LB  =  4 

GO  TO  2COC 
19''  CONTINUE 

WRITE(6.ie5l  UID.MP.NP.NYEAR.TP.PEAK  ,K ODE. NUM 
185  FORMATI25HO  PEAK  DISCHARGE  FOP  YEAR/lH  15*313. F8 


AJRAT 
5.A1, 
AJRAT 
[5  I 


U  I  1 .HRS.KODE. 


t  (  II  .MRS. "CODE. 


WRITEU.1861IWID. MP, NP*NYEAR.TP, PEAK, (CODE 
166  FORMAT  I I5.3I3.F8.4.F?.5.8PX,I3.]x,£?,I5l 
1111  IF(NEND.EC.99)G0  TO  3CF9 
NRECD=99 
GO  TO  3088 
3069  NRECC=999 
3088  KODE=2 

NUM=NUM+1 

WRITE (6.188) NRECD.NYEAR.KUPDAT 
188  FORMATUH  I5.6X.I3.55h   wAURSi 
1AGE  TAPE  =  .A3.50X.I 3. 16) 
WRITE [0,1 8  7 1NRECD.K0DE.KUPDAT.NUM 
187  FORMAT! 15.1 14X , 13. IX, A3,  151 
NRAPPO=l 

IF(NEND.EQ.9)GO  TO  1 
RFwlND  <"i 
STOP 
C      PONDAGE  AND  RATING  TABLE  COMPUTATIONS 

700  GO  TOI721.710I .NbR 
C      PONDAGE 

710  DO  730  1=1,50 

IFIHT-GA&PI 1))716.715.73C 

715  POND=CFSP( I )*RPOND( 1DW) 
GO  TO  7?1 

716  PR0P1  =  (HT-GAGP<  1-1  HMCO. 
pR0P2  =  (GAr,Pi  i  i-gagpi  i-i )  j»ion. 
DIVS=  (CFSPJ  M-CFSP1  1-1  )  1/PP0P2 
P0ND=!CFSP<  1-1  )-*PR0Pl»DIvS)»RP0ND(  lOw) 
GO    TO    721 

730    CONTINUE 
C  NO    PONDAGE 

721    00    740    1=1.170 

1FIHT-GAGRI I ) (7  35.725.740 
725    RATE  =  CFSR(  I  >*RRM  (  I  Dw  I       . 

GO    TO    66 
735    PROPl=(HT-GAGR( 1-1 ) )»100. 

PROP?=IGAr,R(  ]l-GAGR(  !-l'))«inn. 

C1VS=(CFSRI I )-CFSR( 1-1 ) I /PROP? 

RATE=(CFSR(I-1  ) +PROP  1  »D I VS ) »RH A T  (  IDW) 

GO  TO  66 
740  CONTINUE 

GO  TO  66 
C       FLOW  DURATION  COMPUTATIONS 
800  DO  810  1  =  1  .25 

IFIRRATt .LL.C-C 1  GO  TO  82C 

IF < FLOWI  I  )  .GT.RPAT6  )GG  TO  819 


F12.5.88 
DAT .NUM 


PDAT1NG  STOK 


QI  1  )=0(  I  )  +RUNT I 
OT(  1  )=OT(  I  )+T I 
CYRI  1  )=OYR( I J+RUNTI 
OTYRI  J  )=QTYR(  I  |+T I 
81r  CONTJNUF 

819  TOTALQ=TOTALO+RUNTI 
T0TYR0=T0TYRQ+RUNT I 
TOTAL=TOTAL+TI 
TOTYRR=TOTYRR*TI 

820  GO  TO  1500 

C       OUTPUT  FOR  FLOW  DURATION 

900  DO  910  1=1,25 
Ll=l*?5 
L2=Ll+25 
L3=L2+25 
L4=L?+2* 

GO  TO(901 .902) .NFLOW 

901  PER(  I  l=IOT(  1  J/TOTALIM00. 
PERtLl )=(OT( I 1/AMHRiMONTHO) 1*100. 
PER(L2)=(0( I )/TOTALO)»100. 
PER(L3)  =  2( I  J 

PER(L4)=CTU  ) 

GO  TO  910 
9C2  PERI  I  )  =  (OTYR! I  )/T0TYRR)*100. 

PER (LI l=(OTYR( I 1/AMHT)*100. 

PER(L2 l=(OYR( I )/TOTYPO)«100. 

PERIL?  )=OYR(  I ) 

PEPIL4)=CTYR( I ) 
91^  CONTINUE 

LlNES=LINES+2 

DO  937  1=1,125.5 

JJ=I+4 

IF(  I  ,GT.75)GO  TO  5500 
IF(  l.E0.51)wRIT£(6.9221 
922  FORMAT! 1HC49X.31X.40HFLOW  DURATION  AS  PERCENT  OF  *OTAl  RUNOFF) 
IF( I ,EO.26)WRITE(6.920) 

920  FORMATI  lHC.49X,31X,38HFLOw  DURATION  AS  PERCENT  OF  TOTAL  TIME1 
IF(  I.EO.l  )WRITE(6.°11) 

911  FORVATUHC49X.31X.48HFLOW  DURATION  AS  PERCENT  OF  TIME  RUNOFF  OCCUR 
1RFD) 
GO  T015C55. 5056) .NFLOW 
5^55  WRITE  16.921)  I W I D.MONTHO.NYEAR , (P£R(J),J=I,jj)  .KODE.NuM 

921  FORMATflH  I5,I3.3X,I3.61X.F7.?,1X,4F9.2.2I6> 
GO  TO  5100 

5056  WRITE (6,  943)  I W I D, N YE AR  .  ( PER ( J ) ,J=I.jj)  .KODE.NUM 
943  FORMATUH  I  5  .  6X  ,  I  3  ,6  IX  .  F  7  .  2  .  1  a  .  4  F9.  2  .  2  I  6  1 
GO  TO  5300 

5100  WRITE  I  0.970)  1  W  I  D  .  MONThO  .NYEAR  ,  I  PER(  J  )  ,J=1,JJ)  ,KODE  .KUPDAT  ,NUM 
970  FORMAT ( I5,I3.3x,I3.5  4X.5F10.4,l4,lx,A3,I5) 

GO  TO  9?^. 
5500  IFI I. GT. 100)GO  TO  520O 
IFI  I.E0.76)WRITF(6.o23) 
92?  FORMAT!  1HC49X.3U.28HACC  RUNOFF  ABOVE  GIVEN  RATES) 
GO  TOI5101. 5102), NFLOW 

5101  WRITE  16,9261  I  W  I  D  .  MONTHO  .NyE  AR  ,  [  PERU  1  ,J=I,JJJ  .KODE.NUM 

926  FORMATUH  1 5  .  I  3  » 3X  ,  1  3 .  62X  ,F9 .  5  » 1  X  ,4F9  .  5  .  1  3  , 1 6  ) 
GO  TO  5100 

5  102  WRITE  (6.946)  I W  ID.  NyE  AR  .  (  PER  (  J  1  .J  =  I  ,JJ)  .K.0DE.NUM 
946  FORMATUH  1  5  .6X  ,  1  3  .  62X  .  Fy  .  5  .  1  X  ,4F9.  5  .  I  3  .  1  6  1 
GO  TO  530C 
52TC  IFI I.EO.lOlJWPITt 16.924) 
924  FORMAT!  1H049X.3U  .36HACC  TIME  OF  RUNOFF  ABOVE  GIVEN  RATES) 
GO  TOI52C1. 5202), NFLOW 
5201  WRITE(6.^27)  IWID.  MQNTHO, NyE  AR, (PERU)  ,J=I  ,JJ)  .KODE.NUM 

927  FORMATUH  15,  I3.3x,!3.6Cx,Fo.3,lX,4F9.3,I5.I61 


TO 


M'"1 


5202  WRITE  16, 948) I W I D.NyEAP , I  PER ( J ) . J= I . J J ) .KODE.NUM 
948  F0RMATI1H  I5.6X,I3,60X.F9.3.U.4F9.3.  15.  I6> 

5300  WRITE!  ;,971  I  I;jIU.NyEAR.(PER(J)  ,J=I  ,JJ)  .KODE  .KUPDAT  .NUM 
971  FORMAT!  I  5 »6X . I  3 »5AX * 5F10.4 « I 4t IX .A3 1 1  5 | 

935  LS=5 

GO  TO  2O0C 
21-01  IF!  I.EO.101.OR.I.EO.76)GC  TO  936 
IF( I.E0.51.0R. 1 .E0.?6)G0  TO  936 
IFI I ,H£.l )G0  TO  937 

936  LINES=L1NES*2 

937  rONTINU=" 

DO  938  1=1,125 

938  PFP  I  M=0, 

DO  939  1  =  1  ,,5 
01  I  )=0. 

939  OT(  I  >  =  :. 
TOT-H  . 
TOTAL=  . 

IF INEND.LT.9IG0  TO  5305 

I c INFLOW. EO, 2 IGO  TO  956 

NFL0W=? 

KODE=Q 

GO  TO  900 
5  3C5  IF(N0P,E 0.2) MONT H0=STM 

GO  TO  951 
C       MAXIMUM  VOLUME  SEARCH 
1C00  IF(KV.N£.C)GO  TO  10C5 

LcN  =  0 

SUMf=0. 

KS  =  0 

K^S  =  C 

QjnT=r. 

T0T=O. 

DO  10^1  1=1.7 

t<T(  1  )  =  ] 
ICn^  ak<,t<  [1  =  1, 
-  K  V  =  K  V  ♦  1 

1FIKV.GE.601  )K.V  =  1 

R(KV)=RUNTI 

LL  =  TI 

ALL=LL 

LLL=(Tl-ALL)«fc" .'.' 

LLL=LLL+60«LL 

T6(KV)=LLL 

TOT  =  TOT  +  Tf.  [  r  v  | 

PTOT=RTOT*RUNTI 
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MM  =  1 

IF  l  T6{KV» .LT.VOLMI7)  I  GO     TO     1008 

KV=C 

KV3=1 

30  TO  13C2 
1  DO  1100  1=1.7 

1= I TOT-VOLM< I ) 1 1050*1060. 1020 
:  IF(<S.NE.O)GO  TO  1055 

IFU55.NE.7)  GO  TO  1011 

KS  =  1 

GO  TO  ins 5 

IF(  I.LF-f SSIGO  TO  lr55 

IFJKV.NE.1JGO  TO  1C35 

MM=V0LM( 1 >+U 

K5S=K5S+1 

PR0P4=RI 1 )/T6( 1 ) 

COMP(  I  )=PR0P4*V0LM|  I  ) 

PR0P3(  I  )=PR0P4 

GO  TO  105* 

LLLL=V0LM< I l 

KSS=KSS+1 

MM=LLLL-LEN+1 

PR0P4=0(KV)/T61KV) 

A=MM-1 

COMPI  I  )=SUMS*A*PROPi. 

PROP3I I l=R<!l/T6tl) 

lF(KV3.Nt.O)GO  TO  1056 

AMAXI  I  )  =  COMP| 1  | 

NDATEf I  J  =N0AY 

MDATEI I ) =M0NTH 

TDAT1 I )=HR 

GO  TO  1056 

PR0P4  =  RI!CV)/T6(KV) 

NN=KST( I | 

ArOUNT  =  AKST(  I  I 

DO  1.04C  J=MM.LLL 

IF(AK0UNT.LE.T6INN) ] GO  TO  1070 

NN=NN+1 

AlCOUNT  =  l. 

IFINN.E0.6C1 )NN=1 

PROP 3  I  I  )=RINN) /T61NN I 

COKPf  1 »=COMP( I  J+PR0P4-PR0P3I I  J 

AKOUNT=AKOJNT+1. 

1F(AMAXI  1  ).GE. COMPI  H  )G0  TO  1040 

AMAXI I )=COMP(I ) 

MDATEI I l=MONTH 


NDATEl I )=NDAY 
TDAYfl ]=HR 
1040  CONTINUE 
KST I  I  )=NN 
AKST( I )=AKOUNT 
GO  TO  1100 

1080  IFIKV3-NE.O)GO  TO  1081 
AMAX( I )=RTOT 

NDATEi I J=NDAY 
MDATEI I I=MONTH 
TDAY( I )=HR 

1081  COMP(I)=RTOT 
PROP3I 1 I=RI1)/T6I1 I 

1KO  CONTINUE 

GO  TO  1302 
105*  SUMS^UMS  +  RUNTI 

LEN=LEN+LLL 

GO  TO  1302 
2000  IFILSW.EQ.OIGO  TO  2005 

LlNES=LlNES+l 

IF! LINES.LE.55)GO  TO  20?C 
2005  KPAGE=KPAGE+1 

WRI  TEI6«2709)KPAGE 
270Q  F0RH4TUMn22X.4HPAGE.I3) 

WRITEI6.271CI 

2710  FORMAT  I IH  37X .56HRUNOFF  COMPuTAT I ON5-WATERSHED  £NG  I NE  ER1  NG-BLACK.SB 
1URG.VA. ) 

WRITE16.2711 1 

2711  FORMAT! ;32HCWSHEC    DATE    TIME  OF  GAGE  HT  TIME  INT  OUTFLOW  RATE 

ACCUM  DA  ACCUM  MO  ACCuM 


1    POND            RUNOFF 

RATE 

AVC 

i    RO 

RATE 

RO    TIME 

i  yr        seo. 

] 

wRITE[6. 27121 

2712 

F0RMATI132H 

NO 

MO 

DA     1 

R 

DAY 

1  FT.  1 

1    CORR 

(  IN/i 

-R! 

IN^ 

IR] 

1NTI INI 

?.)     CODE    NO. 

) 

LINES=4 

IFCLSW.NE.' 

IGO 

ro   2^20 

LSW=1 

GO    To    2021 

202C 

NUM=NUM+1 

2C21 

GO    TO  I  3001 1 

30O6 

•  3011 

.190, 

2001 

.55. 

9020). Lb 
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DETAILED   DESCRIPTION  OF   THE   VARIABLES    USED   IN   PROGRAM  B 


FLOW(I) 
1=1,25 


iH-S 


Ponding  surfa 
Discharge  rat' 


of  day  (military  tin*  hrs.  -  min.). 
square  inches. 


Selected  discharge  rates  (in./hr.)  from  which  flc 
computations  are  made . 


Cage  height  in  feet  at  which  the  corresponding  Jth  value  of 
CFSP(J)  applies. 


sponding  Jth  valu 


Gage  height  in  feet  at  which  cl 
CFSR(J)  applies. 

Hour  portion  of  time  of  day  (military  time  hrs.  -  min.). 

Gage  height  in  feet. 

Variable  integer  for  indexing  FLOW(I)  and  VOLM(I). 

Last  two  digits  of  watershed  identification  code. 

Variable  integer  for  indexing  RPOND(IDl)  and  RRAT(IDl). 
ID1  is  equivalent  to  IDW. 

The  first  two  digits  of  the  watershed  identification  code. 

Variable  integer  for  indexing  CFSR(J) ,  CFSP(J),  CACP( J) , 
GACR(J)  and  as  an  index  of  do  loops  to  read  FLOW(I)  and 
VOLM(I). 

Index  code  having  possible  values  of  l_   or  2. 

J3=l:   All  output  suppressed  except  flow  duration, 

maximum  volumes,  and  peak  discharge  for  the  ye 
J3-2 :   Normal  output. 

Index  code  having  possible  values  of  _l  or  2. 
J4-1:   No  maximum  volume  search. 
J4b2;   Maximum  volume  search  performed. 

Index  code  having  possible  values  of  _I_  or  2. 

36=1;      No  pondage  or  rate  conversion  table  required. 
J6>2:   The  above  tables  arc  required. 


KSEQ 
KUP 


Index  code  having  possible  value. 
J7=l:  No  rating  or  pondage 
37=2:      Rating  and  pondage  t. 

Index  code  having  possible  value: 


JEND=0: 

The  rating  o: 

r  pondage   table,   whichevei 

loaded,    has   i 

lot   been  completely   loade< 

JEND=9: 

Last   card  of 

the  rating  or   pondage    tal 

Variable  index  specifying  the  uppe 
loop  for  FLOW(I),  VOLM(I). 

Sequentia 1  card  number . 

Identification  code.  This  code  is 


updating  input/ 


Index    code   h 
NBR= 1 : 
NBR=2 : 

iving  possible 
No  pondage  coi 
Pondage    corre< 

Two 

Febi 

digit    Ini 
uary    12. 

:eger    for 

the  < 

Xndi 

:x   code   having  poss 
NEND=0:      Continue 

Lblc 

rds 


NEND=9: 


ill 


g.      All    regular   data 
blank  space   for   SEND. 


End  of   the   station  record  being  processed,   but 
additional    records   to   follow.      The  9-punch   is 
always   placed   in   the   trailer   card. 
NEND=99;      End   of  all   runoff  processing.      The   99   Is  punched 
in  the   trailer  card  of   the   last   station  being 


Identification    code   specifying  whether 
has    been  estimated. 

NEST-blank   space:      Correct    HT. 


gage  height    (HT) 


ed   HT. 


of    0  < 


changed 


iving  possible  values 
The  station  rating  i 
during   the  year. 

The   station  rating  or  pondage   table  has   been 
changed    at    some    specific    time    during   the  year. 
A  9-punch   is  placed   in  column  60  of   the   first 
data   card   for  which   the  change   in  rating  or 
pondage  begins.      The   new  rating   and  pondage 
tables  must    follow  this  data  card. 


tcger 


tepr 


lng   the    ye. 


64    for    1964. 
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CONTINUED 


RPOND(IDl) 
IDl-1,15 


RRATUD1) 
IDl-1,15 


VOLM(I) 
1=1,7 


ACDR 

ACMR 

ACYRR 

AJRATE 

AMAX(I) 
1-1,7 


FIOW(I) 
1=1,25 


HRO 
HRS 


KPAGE 

KSEQ 

KSEQO 

KUPDAT 

MDATE(I) 
1-1,7 

MONTH 

MONTHO 


NDATE(l) 
1-1,7 

NDAY 

NDAYO 

NEST 


NP 


mm 

NYEAR 
PCORRO 


Description 

Pondage   conversion  factor   defined  as: 
RPOND(IDl)   -  S(12    In. /ft.) 

2(A) 
Where  S   =  Scale  of    the  pondage  area  map    in  sq.    ft./sq.    in 
A  »  Watershed  area   in  sq.    ft. 
ID1   =  Watershed    identification   for    indexing. 


Rating    table 


factor   to   convert    CFS   to   IN/HR. 


als    (minutes)  fo 


Klmum  volu 


se?.ch. 


Output 

Accumulated  daily  runoff  in   Inches. 

Accumulated  monthly   runoff    in   inches. 

Accumulated  yearly  runoff   in   inches. 

Discharge   in   in./hr.    corrected    for   pondage. 

Maximum  volume    (inches)    for    selected   time    intervals 
VOLM(J)  . 

Average  daily  discharge   in   in./hr. 

See    input. 

Time  of  day  in  hours. 

Previous  value  of  HR. 

Defined  as: 

HRS  =  V0LM(I)/60    (conversion  of   time    in  minutes    to   r, 

See    input . 

Previous  value  if  HT. 

Variable  integt   for  Indexing  FLOW(I),  VOLM(J) ,  RPOND(I), 
RRAT(I),  MDATEU',  NDATE(I),  TDAV(I),  AMAX(I),  and  for 
determining  the  lover  limit  of  the  write  loop  for  PER(J) . 

Watershed  identification  code. 

Variable  integer  for  indexing  PER(J) . 

See  input . 

ining  the  upper  limit  of  the 


Variable  integer  for  det 
write  loop  for  PER(J). 


Identificatio 
7,  8  or  9. 

KODE  =  0 

RODE  -  2 

KODE  =  6 

KODE   =  7 

KODE   =  8 

KODE  =  9 


ode  having  pos 


i  b  1  s 


alues  of  0,  2,  6, 
One  line  of  output 


Regular  output  li 

for  each  input    card. 

End  of  station  record. 

Maximum  volumes  for  selected  time  interval 

VOLM(l)  and  peak  discharge  rate  for  the  ye 

Daily  runoff  summary. 

Monthly  flow  duration  summary. 

Yearly  flow  duration  summary. 


Sequential  page  number  for  output 

See  input . 

Previous  value  of  KSEQ. 

KUP. 


sting  from  S.Su06. 


Mon 


nr  er 


in  which  the  maxi 
Is  VOLM(I)  ended. 


See  input. 

Previous  value  of  MONTH. 
Month  in  which  the  maxim 
See   input. 


volu 


discharge  for  the  yea 


Days  in  which  the 
VOLM(I)  ended. 

See  input. 

Previous  value  of 

See  input . 

Day  in  which  the  I 


Kin, 


rge  for  the  ye 


Identification  code  having  possible  values  of  99  or  999. 
NRECD  =  99:   The  99  code  is  the  last  output  line  for 
the  years  record.   Subsequent  records  ar 
to  be  written  on  this  tape. 
NRECD  =  999:   The  999  code  is  also  the  last  output 

line  for  the  years  record,  however,  no 
subsequent  records  are  to  be  written. 

Sequential  list  number. 

See  input . 

Pondage  correction  (in./hr.). 


Symbol 
PEAK 


PER(J) 
J-1.125 


KAit 
RATEO 


RPOND(I) 
1-1,15 


RRAT(l) 
1-1,15 


RRATE 
RUNT  I 


TDAY(l) 
1=1,7 


AJRATO 
AKOUNT 


AKST(l) 
1=1,7 


AMHR(I) 
1=1,12 

AMHT 

AVG 

AVGO 
CHKPTOO) 


COMP(I) 
1=1,7 


DELGH 
DIVS 


Description 

The  peak  discharge  that  occurred  during  Che  year. 

Flow  duration  summaries  for  either  month  or  year. 

J=l,25:   Flow  duration  summary  based  on  the  percentage 

of  time  runoff  actually  occurred. 
J=26,50:   Flow  duration  summary  based  on  the  percentage 

of  total  time  (hrs .  per  year). 
J=51,75:   Flow  duration  summary  based  on  the  percentage 

of  total  runoff. 
J=76.100:   Accumulated  volume  of  runoff  occurring  at 

rates  *  to  given  base  rates  (FLOW(I)). 
J=101,125:   Accumulated  time  that  runoff  occurred  at 
rates  *  to  given  base  rates  (FLOW(I)). 


Discharge  rate  from  rating  table  CO 
Previous  value  of  RATE. 
See  input. 

See  input . 

Average  discharge  rate  for  given  ti 
Runoff  for  time  interval  in  inches. 


rted  to  in./hr. 


interval  in  in./hr. 


ime  of  day  (hours)  that  the  maximum  vol 
elected  time  intervals  (V0LM(1) )  ended. 


Time  interval  (hours)  between  two  r 
readings  (HT  and  HTO) . 

Previous  value  of  TI. 

Time  of  day  in  hours  that  the  maxiu 

See  input . 

PROGRAM 

(Input/output  variables  are  not  in 

Variable  Description 


me  (AMAX(D)  for 
ive  gage  height 


peak  discharge 


Two  definitions : 

1.  Year  divided  by  4  (leap  year  test). 

2.  Defined  as  MM-1  and  used  to  determine  the  initial 
runoff  volume  for  the  selected  time  intervals 
(VOLM(I)). 


Two  definitions: 

1.  A  truncated  (N)  (leap  year  test). 

2.  Defined  as  NDAY-1  and  used  for  locating  the  time  of 
day  on  the  time  curve . 

Previous  value  of  AJRATE  (see  output). 

Counter  that  monitors  the  progress  of  the  trailing  edge 
of  the  maximum  volume  search  mesh  as  it  progresses  through 
the  time  interval  specified  by  T6(NN) . 

The  values  of  AKOUNT  at  Che  end  of  each  maximum  volume 
search. 

Time  interval  (hours)  truncated  (LL) . 

Total  hours  per  month. 

Total  hours  per  year. 

Defined  as: 

AVG   =   DELGH/TI 

Previous  value  of  AVG. 

Library  subroutine  for  IBM  7040.  This  r 
necessary  restart  instructions  at  30-min 
machine  failure,  etc.,  occurs  the  progra 
at    the   point    specified   by  CHKPTOO). 


ine  will   write 

increments.      If 
ay   be    restarted 

selected   time 


CFSP(I-1))/PR0P2. 
CFSR(I-1))/PR0P2. 


A  running  record  of  che  maximum  volun 
intervals  VOLM(I) . 

Defined  as: 

DAVG  =  AVG  +  AVGO. 

Change  in  gage  height  (HT  -  HTO). 

Defined  as: 

Pondage  table:   DIVS  -  (CFSP(I) 
Rating  table:    DIVS  -  (CFSR(I) 

Previous  value  of  HTO  (see  oucput). 


Variable  integer  for  indexing  AMHR(T) ,  MHR(I),  AKST(I), 
Q(I),  QU(I),  KST(I),  QTYR(I),  QYR(I)  . 

Index  code  having  possible  values  of  0  or  1_. 

K-0:   Leap  year  testing  development  of  time  curve, 
K-l:   Bypass  above  computations. 

Counter  that  determines  the  initialization  and  temporar 
storage  required  during  pondage  computations. 
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5ymbol 


KST(I) 
1=1,7 


KV 

V.    ■ 


L2 

L3 
L4 


LLLL 
LSW 


M(I) 
1=1,12 


Variable  Description 

Index  code  having  possible  values  of  0  or  1. 

KP=0:   Assumes  that  the  pondage  correction  to  be 
applied  to  the  first  discharge  rate  equals 
to  the  pondage  correction  applied  to  the  second 
discharge  rate. 

KP=1:   Normal  procedures  for  pondage  correction  apply. 

Index  code  having  possible  values  of  0  or  1_. 

KS=0:  Accumulated  duration  of  runoff   V0LM(7). 
KS=1:   Accumulated  duration  of  runoff   V0LM(7) . 


Counter  that  monitors  the  progress  of  the  maximum  volume 
search  for  the  selected  time  intervals  VOLM(I)  until  LEN 
V0LM(7). 

The  values  of  NN  at  the  end  of  each  maximum  volume  search 


Variable  integer  for  indexing  R(KV)  and  T6(KV). 

Index  code  having  possible  values  of  0  or  1. 

KV3=0:   Proceed  with  normal  maximum  volume  searching 
routine. 

KV3=1:   A  time  increment^  to  eight  days  of  t 

has  occurred.   No  maximum  volume  search  made 
over  this  interval.   All  indexes  are  set  to 
initial  conditions,  with  the  exception  that 
maximum  volumes  that  have  been  determined  to 
the  point  of  no  runoff  are  retained. 

Variable  integer  for  indexing  PER(Ll)  from  26-50. 

Variable  integer  for  indexing  PER(L2)  from  51-75. 

Variable  integer  for  indexing  PERCL3)  from  76-100. 

Variable  integer  for  indexing  PER(L4)  from  101-125. 

Variable  integer  for  branching  instructions.   May  have 
values  of  1-7. 


Variable  De 


ff 


Accumulated  til 
volume  search. 


(minutes)  from  the  beginning  of  the 


A  count  of  the  number  of  lines  per  page. 
TI  truncated. 


Time  interval  in  minutes  and  the  upper  li 
volume  search  loop. 


VOLM(I)  converted  to  integer  form. 


Index  code  having  possible  values  of  0  or  1_. 

LSW=0:  Write  column  headings  for  output  data  and  bypass 

sequential  list  number. 
LSW=1:   Proceed  with  normal  writing  routine. 

Number  of  days  per  month. 


QTYR(I) 
1=1,25 


QYR(I) 
1=1,25 


R(KV) 
KV= 1,600 


T6(KV) 
KV= 1,600 


Accumulated  time    that   runoff 
to   FLOW(I)    for   the  year. 


red  at  rates    * 
ring  at  rates   >- 


Accumulated  volume  of  runoff 
to   FLOW(I)    for    the  year. 

Runoff   for   time   interval    (this    is  a  revolving  storage  area, 
i.e.,   when  KV=600,    storage  restarts  at  KV=1.      The  maximum 
volume  search   is    continuous   so  no  overlapping  will  occur). 

Accumulated  runoff  from  the  beginning  of   the  maximum  volume 
search. 


STM 

MJNTHO 

STM) 

mjoth 

STNO 

NDAY 

STT1 

Tl 

sm 

TI 

SUMS 

Accumulated  runoff  to 

value  of  COUP (I). 

T 

Defined  as: 

T=MHR(MONTH-l). 

T=0  when  M0NTH-1 

Accumulated   tim< 
of  TI.      Defined 

T1=MHR(M0NTH-1)+(NDAY-1)  Ik   +  HR. 


the  beginning  of  the  year  to  the  end 


orage  of  time  intervals  in  minutes.   (This  storage  are 
the  counterpart  of  R(KV)). 


the  beginning  of  the 


TOT 

Accu 
voll 

.mulated   ti 
me   search. 

me    in  minutes 

TOTAL 

Accu 

mulated  ti 

me   that   runof: 

TOTALQ 

Accu 

mulated  ru 

noff   for   montl 

TOTYRR 

Accu 

mulated  ru 

noff    for  year 

TOTYRQ 

Accu 

.mulated   time    that   runof: 

TT 

Defined  as: 

TT=(NDAY- 

1)24 

ed  during  the  year. 


MHR(I) 
1=1,12 


AcC 


ulated  hou 


by  months  for  the  year  (ti 


MDNOO 
MTOT 


Lower  limit  of  maximum  volume  search  loop. 

Previous  value  of  MONTH0  (see  output). 

Total  number  hours  per  year. 

A  truncated  (leap  year  testing). 

Counter  that  indexes  the  correct  time  interval  of  the 
trailing  edge  of  the  search  mesh. 

Variable  integer  used  for  branching  instructions.   May  have 
values  of  1   or  2. 

NFLOW=l:  Write  monthly  flow  duration  summaries. 

NFL0W=2:   Write  yearly  flow  duration  summaries. 

Index  code  having  possible  values  of  X  or  2   (see  NTCH) . 

NRAPBR=1:   No  change  of  rating  or  pondage  table  during 

the  year. 
NRAPBR=2:   Require  a  new  rating  and  pondage  table  prior 

to  continuation  of  data  reduction. 


POND  Area  of  pond  above  gaging  station  (from  pondage  table). 

PONDO  Previous  value  of  POND. 

PR0P1  Defined  as: 

Pondage  table:   PROP1- (HT-GAGP(I-l))  100. 
Rating  table:   PR0P1= (HT-GAGR(I-l))  100. 

PROP2  Defined  as: 

Pondage  table:   PR0P2<=  (GAGP(I)-GACP(I-l)  )  100. 
Rating  table:   PR0P2- (GAGR(I) -GAGR(I-l) )  100. 

PR0P3(I)       Defined  as  the  runoff  per  minute  for  the  trailing  edge  of 
1=1,7  the  search  mesh  (R(KST) /T6(KST)) . 

PR0P4  Defined  as  the  runoff  per  minute  for  the  leading  edge  of  the 

search  mesh  (R(KV)/T6(KV)) . 

Q(I)  Accumulated  volume  of  runoff  occurring  at  rates  & 

1-1,25         to  FLOW(I)  for  given  month. 

QT(I)  Accumulated  time  that  runoff  occurred  at  rates  >, 

1-1,25         to  FLOW(I)  for  given  month. 
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LISTING    OF   THE   SOURCE   STATEMENTS    FOR  PROGRAM  C 


AFJLE . 
SE1C 
JSEIt_ 


-FTCO !.-» UP l.UO 1. DOUBLE .REELS .H ICH .PR  I  NT .BLOCK* 160 . 

LRL=15,RCT=09.TYPE3.ERR=RERRX..EOF=REOFx..E0R=REORX 
HOLD. 


s 

BFTC  FIRST 

PROGRAM  r 

c 

MISCELLANEOUS  HYOROLOGIC  DATA  REDUCTION 

PROGRAM 

151 .PERCI 15I.ASUBI15) 
OFUINH  1 

REWIND  0 
?n   RFAfirs.iniKrnNTR 

1C  FORMATI  11  ) 

.CAL,L_CHJCPT(3Q) 
GO  T0I1.2.3.4.51 .KCONTR 
1  CALL  MOIST 

1 

GO  TO  20 
2  CALL  LOUSE 

GO  TO  20 
3  CALL  WIND 

GO  TO  20 
4  CAI  1  TEMP 

GO  TO  20 

s  stop 

•  END 

S  BFTC  hoist 

c 
c 

SUBROUTINE  FOR  MOISTURE  REDUCTION 

SUBROUTINE  MOIST 

COMMON/WT/M!  12) .NOTE  SI  12 1 / TLD/COUNT S I  121 

.LUSEI12I 

.AREAI 15} 

. SLANDl 1 

151 .PERCI 15I.ASUB! 151 
DIMFNSION  DPI304.7) .SPI1 1? 

21  .DPNI304.2) 

DIMENSION  NSITEI6I  .NTU3EI3 
DIMENSION  NSNSTI6) .NTEBEI3 

.ND1ND2I7I  .NDECSI15  1  .NTEMPI7) 
.NCHKI3) 

DIMENSION  F610I 171.DVLPI2) 

DIMENSION  STDPI4I.ST0SPI4I 

F6201  151 .F621 

161 .F624 

161 .F625I 161 

DATA  NDECS/1H0. 1H1 . 1 H2 . 1H3 . 1H4 , lH^ . 1H6 . 1M7 , 1H8 . 1H9 , 1 HF , 1HT . 1H I . 1HN 


DATA  F6]0/102HI2I6.I3.l4,lx.6Al,2x.3A1.2X,7Al, 
F9.0.F9.1.FU.2,F12.2.4X,A3.IS) 


F9.0.F9.1 .27X.A3.I51     / 
DATA  F621/96HI216.I3. 1 4 . 5X . 1 6HSURFACE  STANDARD 


DATA  F674/96HI2I6.I3.I 


•F9.1.27X.A3.I5I      / 
.71H     CX  DEPTH  STANDARD 


DATA  F67S/96HI7I6. [3.1- 


.F9.1 .27X.A3.15I      / 
.71H fK  SIlRFACF  STANDARD 


.0.F9.1.27X.A3. 151 


DATA  NCHX/1H. 


LVA„  MuliluKL  l«tLi 


_     NDP  =  1 
Ann  jj=ndp+4 

RE AD  I  5. 600  I  I  DP  I L.l) .UP  I L .2 ) .L  =  NUP . JJ ) .NEND 
600  FORMATI 10F5.1.25X. II 1 

IFINEND.E0.9IG0  TO  401 

NDP=NDP+5 

GO  TO  400 


610  FORMAT  I  7  16.  H.l4.1X.6AI.?Y.3AI.P».7A1.SF7.f1,FO,A,FQTl,F]1,;,Cl?,?, 
18X.A3.I5I 

NCQNI.=J«:ONT*l . 

NBRANH=1 
Lf)W=Z. 


91? 

GO  TO  899 

CONTINUE 

IFIK.ODE.E0.1  IGO  TO  8052 
DO  8051  T=1.7 

8051 
8052 

NTEMPI 1 1=ND1ND2( I  1 

1   '.  ■  |Ni  i 

WRITEI6.F6101 IWD.MO.ND.NYR.INSITEll  ) .1  =  1.6) .INTUBEI  1  )  .  I  =  1  •  3  1  •  1  NT  EM 
lPIIl.IO.7l .1  COUNT  SI  11.1  =  1.51  ■ SUMC. AVG. PCS TD.PCMO IS. NUP. NUMBER 

NUM8ER=NUMBER+1 
LBR  =  2 

75 

GO  TO  88 
PCSTD=IAVG/STDSP(MFTER> I'lOO. 

DO  80  L=l  .NSP 

IF1SPIL.1 1-PCSTDI80.81.B? 

80 

CONTINUE 
L  =  L-1 

81 

PCM01S=SP(L.2I 
GO  TO  199 

82 

J=L-1 

PCMOIS=l  (PCSTD-SPI J. 1 1  1/ISPM  .1  l-SPI J. 1  1 1 • 1 SP 1 1  . 7  1 -SP 1  J. 2 1  1  1 *SP 1  J. 

199 

121 

NTFMP(7I=NDECSI 141 

NTEMP|61=NDECSI 13) 
NTFMPI5)=NDFCSI 1 1 

8079 

DO  8029  1=1.4 
NTFMPM1=NDFCSI  151 

50 

GO  TO  100 
STDPIMETER)=AVG 

NBRANH=2 
L0M  =  7 

913 

GO  TO  899 
CONTINUE 

WRITEI6.F620I  I WD.MO.ND .NYR . ICOUNTSI I  I .1  =  1.51 .SUMC .AVG .NUP. NUMBER 
GO  TO'  54 


LOW  =  8 

GO  TO  899 


914  CONTINUE 

WRITEI6.F621 ) I WO.MO .ND.NYR . I C0UNTSI 11.1=1.51 . SUMC .AVG .NUP .NUMBER 

54  NUMBER=NUMBER+1 

LBR=2 
88  IFILINES.GE.511GO  TO  90 

LINES  =  UNES+1 

GO  TO  95 
90  LINES=Q 


KPAGE=KPAGE*1 
WRITEI6.615IK.PAGE 


615  FORMATI 1H1120X.4HPAGE. 1 4/ 38X , 5  5HSOI 
1 E E R I NG-6LACXSBURG ■ VA. / 1 28HOWSHD  NO. 


L  MOISTURE  DATA-WATERSHED  ENG1N 

MO  DAY  YR.   SITE   TUBE    OEPTH 

SUM    AVERAGE   PC  STANDARD 


GO  TOI5.951 .LBR 
NBRANH=4 
"  LOW=8 
GO  TO  899 


CONTINUE 
WRITEI6.F624) IWD.MO. 


ID. NYR. ICOUNTSI 11.1=1.51 . SUMC .AVG .NUP .NUMBER 


RE AD  I  5. 600  1 IDPNIL.ll .DPNIL.2) .L=NDPN.JJI .NEND 

IF INEN0.EO.9 IGO  TO  403_  __ 

NDPN=NDPN+S 

GO  TO  402 


403  NSP=1 

404  JJ=NSP+4 

RE  AD  I  5. 600 IISPIL.il .SPIL.2] .L=NSP,JJI  .NEND 

IFINEN0.EO.9tGO    TO    405 

NSP=NSP*S 

GO     TO    404 


405  CONTINUE 

6  LBR=1 

KPA6E=0 

.._.  .GO  TO  .90  _ 

5  NUMRFR=1 

NFNO=0 


25  5UMC=0.0 

anum=o,o 

readi 5.605 imeter. i  wd .mo .no .nyr. insitel  i  1 , 1=1.6) . intubei  i  i . 
1nd1nd2i  i  )  ..1  =  1.7  1.  icountsi  i),  j  =1.5)  .xode , nend , nup 
605  formati 1  1  .  14  .3  i  2  .  1  x  .6a1  ,  1  x.3a1  .  7a1  ,  5f  5  .0  .  10x  ,  i  1  ,  5x  .  t2  .  a3  1 

IFtX.QDE.EQ. 7  IGO  TO  220 


IFIXODE.EO.ll&O  TO  8000 
8040  CONTINUE 

DO  30  1=1.5 

!/.  (COUNT  S  U  U_E  0.0 .0  I  GO  TO_3Q_ 

SUMC=SUMC* COUNTS! I ) 

ANIIM=ANl)M-H  . 

30  CONTINUE 

AVG=SUMC/ANU« 
IFIXODE.GT.21&0  TO  1003 
IFIMETER.EQ. 3.0R.METER.E0-4 
1003  GO  TOI40.75.50.55.200.205I . 

40  PCSTD=IAVG/STDPIMETER) I'lOO 

1005  GO  TO! 301 .300.1000.1001 ) .METER 
— 129  DO  3Q5.  I  =  1,NDP.N 

IF (DPN( I,1)-PCSTD)305.36  5.370 

305  CONTINUE 

1  =  1-1 
365  PrMQIS  =  DPNI  1  .71 


IGO  TO  1005 
CODE 


GO  TO  100 
.  370_J=It1 .. 

PCM01S=l IPCSTD-DPNI J.l ] l/IDPNI I ,1 l-DPNI J.l 1 1 
1DPNIJ..2) 

GO  TO  100 
_101    DO  60  1  =  1  .NDP 


IF (DPI  1.1 l-PCSTUI60.6S.70 
60    COJUJNUE  __     .. 

1  =  1-1 
65    PCM0IS=DP1I t21 
GO    TO    100 

7Q_J=L=-L     

PCMOIS=l (PCSTD-DPI J.l ) I/IOPI I .1 1 -DP  I J.l 1 )• 
121 


I  DPI  I  .21-DPI  J. 21 ]  I.DPI J. 


100    CONTINUE 

IF  (E.ODE.FQ.2  IGO    TO    flOOjQ 

8041  CONTINUE 

»RI!£[1.6iQJl«D.MO.NU»JlYR.LtiSITLUJ.I=J..t>l.INTFJi£ll)  ,1=1.31 

1(11.1  =  1.71  . 1  COUNT S( 11.1  =  1.51 .SUMC.AVG.PCSTD.PCMOIS.NUP.NCON 


GO  TO  54 
220  READI 5.630  I  I WD.MO.ND .NYK . I  NOTES  I  I  1. 
630  FORMATI IX. I  4 . i 1 2 ,8A6 .A5 . 1 1 ,5X .  I  2 .A3 

WRITE  I  6.635  I  I WD.MO.ND. NYR. I  NOT  ESI  I  I 
6  35  FORMAT  I  2 16. I  3. I 4 , 2X , 8A6.A5 .46X . A3 , 1 

GO    TO    54 

95  IFIK.ODE.EO.7IGO    TO    22C 
IJ:|NENp-9)96.6_  99 

96  GO    foi5.25f.LBR 

99  RFWIND  1   

RETURN 

1000  PCST 3= [AVG/ SI  UP [METER  I  I'lOO. 

PCM01S=IPCSTD-7.8  1/1.764 

GO  TO  100 

1001  PCSTD~=<  AVG/ ST  DSP  I  METER  )  1*100. 
PCMOIS=IPCSTD-22.5)/1.60 

GO    TO     199 
899    CONTINUE  

LUP=L0W+4 
..  _     .  KQ.UN_T  =  0 

DO    900     l=LOW.LUP 

JCOUNT  =  KOUNT*l 

IFICOUNTSI iCOUNT I.EO.0.1GO    TO    901 

GO    TO! 90 2. 90 3. 904. 905. 9061. NbRANH 
902    F6rb<  I  l=DVLPI  11 

GO  TO  900 
"903  F620I I 1=DVLPI 11 

GO  TO  900 

904  F621  I  I 1=DVLPI1I 

GO  TO  900 

905  F6?4( I )=0VLPI 1 1 
GO  TO  900 

906  F625I I 1=DVLP( 1) 
GO  TO- JJOO 

901  COUNTS! ICOUNT l=CHANGE 

GO    I£U907_.9Qa.90.9-.9iO»91  H.NttttAWH 

907  F610I I )=DVLPI2I 
GO  TO  900  ■ 


111.1=1.51 .SUMC. AVG. NUP .NUMBER 


1  =  1  .91 . XODE. NEND. NUP 
.1  =  1.9)  .NUP. NUMBER 


•i  08 
909 
910 


F620I I I=DVLPI2I 

60JO-WO 

F621! I l=DVLP(2) 
GO    TO    900 
F624I I l=0VLP!2t 
GO    TO    900 


F625I  1  )  =  DVLP(2I 

COA1T1NUE 

GO  T0I912.913.914.915.9161.NBRANH 

CONTINUE 


LI 


DO  8005  1=1.6 


NSNSTILI 1=NDECSI151 
.  J£  U»S4-IiJJ-l->-EiUAlO£tS4-L-5-(-t«>-4« 
LM=LM-1 
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•-   CONTINUED 


NSNSTILM1-NS1TE II I  ) 


8005  CONTINUE 


8006  NSITEI  I 1=NSNSTI  I  I 
LM=4 


DO  8010  1  =  1.3 


L1=LK-I 

NTEBE1LI l=NDECS<15l 


oo  eon  j=i. 

IFINTUBECLII.SO.NCHKIll.OR.NTuBEILI  I  .  EO.NCHK  (  2  1  .OR.NTUBE  I  L  I  I.FO.NC 

HKOI  IGO    TO    8011 

LM=LM-1 


NTEBEILMI=NTUBEILI I 
GO  tO  8010 


DATA  MM/  31,  28  i  3  1.30.  31.30.  31,  31.  30.31,  30.  31/ 
REAOI5.604IYR.I  1  DENT  I  11,1  =  1,11) 


F0RMATIF2.0. 11A6] 
READ! 5.605 1MON.NDAY 


FORMATI2I2.1X.2F2.0. 
L.SW  =  Q 


HR.TMIN.AMON.KODE.NEND 


.F6.1.1X. I 1.59X.I2I 


LINES=0 
NUM  =  1 


AAA  =  L 

1FIAA.NE.AAAIGO  TO  15 


MM(21=29 
GO  TO  217 


IFIK0DE.E0.2IG0  TO  8041 
LM  =  8 


DO  8070  1=1.7 


Ml ] )=MTOT 
NYR=-YR 


Lt=LK-I 

NTEMPILI 1=NDECSI15I 


DO  8018  J=l  .14 

IFIND1ND7ILI  l.NF.NDFCSIJMGO    TO    8018 


LRR=1 
GO  TO  5 


LM,=  L.M-1 
NTEMPILMI=NDECS(JI 


GO  TO  8040 
END 


Av  =  0. 

TI=0.  _ 

DT=0.0 

LTIME=HR»100. 

SD=0.0 

ST1=0.0 


SDYR=0.0 
STIYR=0.0 


MONN=M0N 


S1BFTC  Dl 
_£ SUBROUTINE  FOR  LAND  USE  SUMMARY 


SUBROUTINE  LDUSF  

COMMON  /WT  /Mil  2")  . I  DENT  I  12 1 /TLD/WTSI  121  .LUSEI  121  . AREA  I  1 5 > .SLANDI 1 5  I 

1 .PERCI 15) .ASUBI 15)         

REWIND  "0 


3 

READ  15.5101 IDW2.NFN2, IWTSI I  1.1  =  1.71 .COMP.NEND 

51o 

FORMAT  1  14. AX. I3.AX,8F6.»,2X,I2  1 

WRITE  101  IDW2.NFN2,(WTS(I 1.1  =  1 .71  .COMP 

IFINEND.NE.99IG0  TO  3 
1  READI5, 500)1 .AREAI I  I ,NEND 

500 

FORMAT  1  I2.1X.F6.2.69X.12I 
IFINEND.NE.9IG0  TO  1 

REWIND  0 
KK=0 

KPAGE=1 

DO  5  1=1.15 

5 

ASUBI I  1=0. 
SLANDI I  1=0. 

8 

• :  t  -  . 
read  15. 50 51  101 , i d2 .mo.nd.nyr .nf n , 1 luse 1  i  1  . i =1 .7 1 ,nend 

505 

FORMATI5I2.IA.7I2.50X.12I 
IDW0=I01»100»ID2 

READIOI IDW2.NFN2. IWTSI 11.1=1.71 .COMP 
IFIWTSI1 1.NE.0.01GO  TO  110 

SUM=0. 

DO  105  1=2. 


IFIWTSI I I.EO.0.0IGO  TO  111 
105  SUM=SUM*WTSI II 


GO  TO  111 
110  SUM=WTSI1  I 


111  IF ISUM.tO.COMPlGO  TO  150 
CORR=COMP-SUM 

DO  115  1=1.7 

IFIWTSI I l.EO.O.OIGO  TO  115 

WTSI  I  1  =  IWTSI  I 1/SUM)»C0RR*WTSI  I  1 
115  CONTINUE 

150  IFIWTSI1 l.NE.O.OIGO  TO  25 
IFIWTS12I.EO.0.0IGOTO  30 


JJ=LUSE(J) 
TOT=TOT«wTSI Jl 


SLANDI JJ I =SLAND|JJ) 
20  CONTINUE       


30  1FINEND.LT. 9IG0  TO 


IFIXK.NE.21G0  TO  70 


65  WRITEI6.519IXPAGE 

519  FORMATI  1H1.U0X.4HPAGE.I3I 
XPAGE=KPAGE*1 

HiUT£|6,,520J._ 

520  F0RMATI1H  .17 
1G.VA. 


53MLAND    USE    SUMMARY-WATERSHED    ENG! NEER I NG-BLACXSBuR 


70    WRITE  I  6. 5 30  I  IDWD.AREAI  ID2I .MO.ND.NYR 
5  30     FORMAT  I  1  HO  .5X  .9HW  AT  F  RSHFfl.  I  >,  /  f.  Y  .  lOHARFAlACS.  I  ,F8  ■  7 /<■»  ■  1  AHIYA 
1EY    MADE. 3131 

KOICK-H 

DO    60     1=1 .15 

PERCI  11  =  1 SLAND I  I )/TOT)«100. 


60  ASUBI  I 1  =  IPERCI  I  1/100. I»AREAI  I D2  I 
WRITFI6.560) 


560  FORMAT! 1H0.2 5X . 33HLAND  USEIPCT)       LAND  USEIACRES1I 
WRITEI6.570)  IPERCI 1  I .ASUBI  I  1.1  =  1.15 1 

570  F0RMATI6X.14H  1. SMALL  GRA IN, 7X .F6.2 .8X .F 1 1 . 5/6X . 7H  2. CORN. 
1  .8X.F11.5/6X.6H  3.HAY  .  1  5X  .F6  .2  .  8X.F11.5/6X_UQM  <l.PAS ILIREjI  1 
28X.F1 1.5/6X.10H  5. TOBACC0.11X.F6.2.8X.F1 1.5/6X.8H  6. WOODS. 1 
3.BX.FI1.5/6X.7H  7.1DLE.14X.F6.7.BX.FM.5/6X.8H  S.R0ADS.13X. 


.F11.5/6X.12H  9. SOY  BEANS .9X .F6. 2 .8X.F 1 1 . 5/6X .9H10.COT TON , 
5.8X.F11.5/6X.15HU  .SORGHUM  CANF.6X.F6.2.8X.FU.5/6X.11H12, 


12X.F6.2 
FALLOWEO 


.Fl  1.5/6X.21H13. 


.F6.2.8X.F11.5/6X.21 


86.2.8X.F11.51 
CALL    CHX.PTI30I 


.F6.2.8X.F11.5/6X.21H15. 


IFINEND.NE.99IGO  TO 
RETURN 


SUBROUTINE  FOR  ANEMOMETER  OATA  REDUCTION 


COMMON/ WT /Ml  12  1  . 1  DENT  I  12  I /TLD/AVMAX I  12  1 .AVMINI12I .C I  1 5) .CC I  1 5 1 .AVG 


ANDAY=NDAY 
TT1=IANDAY-1. 


•HK-1"  i  \.-  ;  . 


T1=TTT*TT1 
T2=T1 


.nyr.ltime.ti.amqn.pt .AV.NUM 


READ! 5.6071MON.NDAY.HR.TMIN.AMON.XODE.NEND 
FORMATI2I2.1X.2F2.0.2X.F6.1.1X.I l,59X.i.2> 
IFINEND.GE.91G0  TO  99 


44 

IFIMON.NE. 

T  •  T  =  "  . 

11  GO 

ro 

61 

61 

GO  TO 
TTT=MI 

65 

MON- 

1  1 

65 

ANDAY=NDAY 
TT2=I ANDAY 

-1.1 

•.» 

.+HR+TMIN/60. 

T2=TTT*TT2 
IFIK.ODE.NE.91G0  TO  85 


LTIME=100.*HR+TMIN 
IFIM0NN.NF.M0N1G0  TO  80 


WR I TE I  6.620  I MON.NNDAY.NYR.LT I  ME. 1 I.AMON.NUM 

F0RMATI1H  3I3.I6.F11.4.F9.1.21H   INSTRUEMENT  FAILURE  .  49XjJX  ,  1 5J_ 


LBR  = 
GO  TO  5 


.EQ.OIGO  TO 
GO  TO  87 


LTIME= 

NNDAY=-MMIMONN) 


TI=TTT-T1 


GO  TO  98 
IFIXOnF.NF.fllGO  TO  88 


0=9999. 9-AM 


IF IM0NN.NE.M0N1G0  TO  95 
_ D.  T  =  AMON-AM 


TI=T2-T1 
Av/  =  DT/TI 


.TMIN 


WRITE  I  6. 606) MON.NNDAY.NYR.LT I  ME . T 1 .AMON.DT .AV.NUM 
FORMAT  I  1H  3l3.lf..F11.4.F9.1.F)n.l.F9.7.49x.9X.I5l 
LBR  =  4 

r,n  to  5 

SD=SD*DT 

S.U.ESXI+T1  

1FI J.EU.01GO    TO    43 

_00.  TQ..98       .  _.-.  

DD=AMON-AM 

TT  =  T7-T1 

AV=DO/TT 

LT1ME=2400 

NNDAY=-MM(MONN) 

TI=TTT-T1 


GO    TO    93 

NUM=NUM+1 


AVM=SD/STI 

WRITE  I  6.6  10  ISM  .SD.AVM.NUM 


F0RMATI49X.6X.F11. 
I  BR-5 


.F9.1.F8.2.30X.I5I 


GO    TO    5 

IFINFN0.GF.91G0     TO     115 


S0  =  0. 
STI=0.0 


MON=MCH 

IFIJ.EU.2 IGO     TO    108 


T I -T2-TTT 

L  TIMf  =  100. 


OT=AV»TI 
NNDAY=-NDAY 


NUM=NUM*1 
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GO    TO    93 

Ins    mmv^-»ni» 


LTIME=100.»HR»TM1N 
T I =T?-TIT 


NUM=NUM+1 
.1*0 


GO     TO    75 

IIS     NIIM  =  NUM-H 


AVYR=SOYR/ST IYR 
WRITEI6.6UISTIYRi.S0YRiAVYR.WllM 


611     FORMATI 
NUM=1 


.1.F8.2.2X.1SI 


IFINEND.E0.9IG0  TO  20 

RETURJL 

IFILSW. NE.OIGO  TO  6 
LSW=I 


362  IF1CMIN1 I I.NE.AMINI I .Jl >G0  TO  360 
1MINIIL.I  >=.J 


LL=LL»1 
360  CONTINUE 


699  WRlTEI6i906l  I  1  u  I  I  I  .  1  =  1  ,  U  1  .NNYR 
906  FORMATI1H1UA6/5H  YFAR.I6I 


903  FORMATUH  2AX  .  77HMAX  1MUM-MIN  1  MUM  TEMPERATURE  COMPU 

IP  ENGINEER  I nq-blacxsBuRCj,va,/ih0  53x,8hmax  I mhmS/25x 


2FEB 

GO  TO  ao? 


R.   APR.   MAY    JUNE   JULY   AUG.  SEPT. 


TATIONS 
76HDATE. 


WATERSHE 


.77HMAX1MUM-MINIMUM  TEMPERATURE  COMPUT AT  I ONS-WATERSHE 


IF ILINES.LT.58IGO  TO  7 

WRITE  16.621 1  I  I  PENT [  1  ). 1  =  1.11  I 


621  FORMATI 1 
WR1TE16. 

H1UA61 
300  1 

300  FORMAT  1 1 
1CKSBURG. 

H028X.60HANEMOMETER  COMPUTATIONS-WATERSHED  ENG INFER  I NG-BLA 
VA./118H0   DATE       T 1 MF      T1MF      ANFMOMFTFR   DIST  TRV  A 

2VG  RATE 
30./H7H 

TIME  IN  TV 
MO  OA  YR 

OIST  TR 

V  AVG  RATE  TIME  INTV  DIST  TRv 
INTVIHRSI  D1STIMILFS1  FOR  INTV 

AVG  RATE  SE 
IMPHI 

-  MONTH 
LINES=i. 

MONTH 

MONTH 

YEAR 

YEAR       YEAR 

NOI 

GO  TOI1O0U 
END 


43.1001.1002.1003  1 .L8R 


SUBROUTINE  TEMP 


DIMENSION  AMAX1 12.31 1 iAMINI 12.31 1 .IMAX 
DIMENSION  MMI  121. FORI  1M.F0RRI7I 


COMMON/WT/CMINI 121.IDI12)/TLD/AVMAX(12).AVMIN 

1(15)  iCMAXI  151 

DATA  MM/ 31. 28. 3 1.30. 3 1.30,31. 3 1.30.31 .30 i31/ 
DATA  F0RR/17HA6 UJl i/iNF0/6M I 


IM INI  1 
121. C 


0.121 

15)  .CO  15 


DATA    F0R/79HI27X 


DO    1.03     1  =  1. 
00    A00    J=1.3I 


"I1N1  I.J)=0.0 
AMAXI I.J1=0.0 


CONTINUE 

01}  1.0  1     1  =  1.17 

CI  I  1=0. 

CCI 1 1=0. 

DO    1.05     1  =  1.10 
DO    1.07     .1=1.1? 


1.05    CONTINUE 


READI5.107  1YR.1 10111.1=1.11) 

F0RMATIF2.0.UA6I 

NNYR=YR+1900. 

AA  =  YR/1>. 


802    LIM=MMI21 

DO     501      1=1. LIM 


GO  TO  I  500.803 1 .KK.KX 
803  WRITE  16.2 101  I. IAMINI J.I  I. J= 1.12  I 


210  F0RMATI25X.I3.1X.12F6.1 I 
GO  TO  501 


500  WRITEI6.210ll.IAMAXIJ.il, 

501  CriNTINIlF 


GO  TOI505.515) .LEAP 
505  DO  51 1  1=29.30 


201  FORMATI25X 
GO  TO  5U 


510  WRITEI6.201] 1 .AMAXI1 

511  CONTINUE 

.11, 

.-.  MAX  1  J . 

II 

,J=3< 

.12) 

GO  TO  520 
515  1=30 

GO  TOI806.805I .KKKK 
805  WRITEI6.201I I .AMINI 1 

■  . 

. IAMINI J, 

1  ) 

,J  =  1 

.12) 

GO  TO  520 
806  WRI1EI6.201 1 1 .AMAXI 1 

■  II 

i  AMA  l  I  J, 

1  1 

.J  =  3. 

.121 

520  1=31 

GO  TO1809.808) .XKXK    

808  WR ITEI 6.202) I .(AMINI J. I I.J= 1.7.21 
202  FORMAT I25X. 13. IX. F6.1.3I6X. F  6.11. 


809 

GO  TO  810 
WRITEI6.202I  1 

.1 AMAXI J, I  I, J= 1,7, 2  1 ,1 AMAXI J. I 

1 ,J=8.12.21 

810 
811 

GO  T0I812.81 1 ) .KKKK 

WRITE  16. 103  I  IAVMIN1  I  1.1  =  1,12  1 

103 

FORMATI 21 H 
WRITE  16. 101.1 

AVERAGE  OF  MINIMUM, 8X. 12F6. 1 1 
ICM1NI 1 1,1=1,12) 

10". 

FORMATI 10H 
GO  TO  813 

MINIMUM. 19X.12F6.1 ) 

312  WRITE  I  6. 203  I  (AVMAXI  I  I  , 1  =  1,121 

203  FORMATI 10H  AVERAGE , 19X.12F6.1) 

WRITEI6.20A)  ICMAXI  1  I ,1=1,12] 
201.  FORMATUOH    MAX  I  MUM,  19x  ,  12F6.J  1 
813  WRITE  1 6. 205 )  lAVGl  11,1  =  1,12) 
205  FORMATI21H    AVERAGE  OF  MAXIMUM. 8X 


KK  =  0 
KKK  =  0 


IFIAA.NE.AAAIGO  TO  15 
MMI7)=79 


LEAP=2 


MM|2)=28 

1_EAP=1 

READ! 5. 110) MO. NO. AM AX  I  MO. NO). AM  INI  MO. N 

FORMATI2  12.2I  1 X ,F 3.0  I . 66X . I  7  I 

IF INEND.LT.9IG0  TO  370 


Fl 


I  1=MMI  I  I 
A1I=I I 


C0MP1=AMAX( I .1 ) 
COMP;  =  AM)NI  I  .1  I 


DO    330    J=1.U 
.    IF1AMAXI1.    II  .l.T  .rnMPi  II  OMP1  =AMA»  M  .    'I 
IF IAMINI I .J1.LT.C0MP2IC0MP2=AMINI l.JI 

CI  I  l=C  I  I  I.AMAX  I  I  ..II  __  _  _ 

CCI I I=CC| 1 1+AM1NI I ,J] 
avmahi  I  l=C I  I  l/AI  I..1H 


12C 


GO  TOI  125,1201  .KK.KIC 
WRITEI6.106IIIM1NIJ.II.1=1.12I 


106  FORMATI25H    DAYS  MIN1MUMS  OCCURR 
GO  T0_  126 

125  WRITE  16. 2061  I IMAX I  J, 11,1  =  1,12 
206  FORMATI25H    DAYS  MAXIMUMS  OCCUR 

126  KK=1 
GO  TO  519 

999  GO  TOI 1000,1001  I ,KKKK 

LP.O.L  DO.  .2000  I=_l,12 

IF! IMINIJ, I  1 .NE.OIGO  TO  1999 

FORI I«l)=FOhn|  1  I 

IMINIJ. I l=NFO 

GO  TO  2000 


■    ,  h  X  ,  1 i.  , 
E0,i*x  ,  IA, 


»] I*. 05 


CMINI 1 l=COMP2 

AVG I l)=(CMAXIl).CMINIII)/2. 


DO  361  1=1.12 
I  I=MMI  I  I 


DO  360  -1  =  1.11 
IFICMAXI 1 I.NE. 


AXI  I  .Jl  IGO  TO  362 


WRITE  16. FOR  I  I IMINIJ, I  I. 1=1, 12 

GO  TO  519  

1000  DO  2005  1=1,12 

IFI  IMAXIJ.I I. NE.OIGO  TO  200A 

FORI  I*l)=FORRI  1  I 

J_MAX_(  J_,  I  }=NF0 

GO    TO    2005 
2001.    FORI  |.U=FORRI2l 


U05  CONTINUE 

WRITEI6.F0RI  I IMAXIJ.I  I  .  1  =  1,121 

519    CONTINUE 
KKKK  =  IHKK»1 


IFIKKKK.E0.21G0    TO    699 
IFINEN0.EC.9IG0    TO    700 

BEiuon 
.  ZND.  
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APPENDIX   LIST      C2. 


DETAILED  DESCRIPTION  OF  THE  VARIABLES 
USED   IN   PROGRAM  C 


KCONTR 

LDUSE 

MOIST 

TEMP 

WIND 


ND1ND2(I) 
1-1,7 


HSITE(I) 
1-1,6 


NTUBE(I) 
1-1,3 


HOC 
NYE 


Calling  Routine 
Description 
One  digit  integer  having  possible  values  of  1,  2,  3,  4,  5. 
Subroutine  for  land  use  summaries. 
Subroutine  for  soil  moisture  reduction. 
Subroutine  for  max-min  temperature  summary. 
Subroutine  for  anemometer  reduction. 
Subroutine  Moist 


ve  for  depth  probe 


input 

COUNTS (I) 

Number  of  counts  obtained  by  scaler 

1=1,5 

DP(L,D 
L=l,304 

1=1.2 

Coordinate  points  from  the  calibrati 
No.  1 

1=1:   Percent  standard. 

1=2:   Percent  moisture. 

DPN(L.I) 
1=1,304 
1=1,2 

Coordinate  points  from  the  calibrati 
No.  2 

1=1:   Percent  standard. 

for  depth  probe 


1=2:   Per 


oistu 


Variable  integer  used  to  index  COUNTS (I) ,  ND1ND2(I),  NOTES (I), 
NSITE(l),  and  NTUBE(I).   The  variable  I  that  is  given  as 
indexes  for  DP(L,I),  DPN(L,I),  and  SP(L,I)  is  a  dummy 
variable  that  is  used  to  indicate  the  second  dimension  of 
the  respective  matrices. 

Watershed  identification  code. 

Variable  integer  used  to  identify  the  upper  limit  of  read  loop. 

anching  instructions.   See 


Variable  index  code  used  in 
bottom  of  table  CI. 


Variable  integer  used  to  index  DP(L,I),  DPN(L.I), 
CL, I). 


code  having  possible  valu 


nd  SP 


METER  = 

METER  i 
METER  ■ 
METER  ■ 


Depth  probe  No.  1 . 
Depth  probe  No.  2. 
Depth  probe  No.  3. 
Surface  probe  No.  2 


Two  digit  integer  representing  the  month  of  the  year 
Two  digit  integer  representing  the  day  of  the  month. 


Depth  at  which  reading  was  taken,  e.g. 
24  IN.,  etc.  The  depth  field  is  read  . 
alphameric  words. 


rface,  12  IN. 
one-digit 


limit  of  the  read  loop 


Index  code  that  locates  th 
for  table  DP(L.I). 

Index  code  that  locates  the  lower  limit  of  the  read  loop  for 
table  DPN(L.I). 

Index  code  that  initiates  specific  logical  operations. 
When  loading  the  soil  moisture  tables  (DP(L,I),  DPN(L,I), 
and  SP(L,I)>  this  code  specifies  when  the  respective  tables 
have  been  completely  loaded.   For  this  function  NEND  is 
used  as  follows: 

NEND  =  0:   More  cards  to  be  loaded. 
NEND  =  9:   The  table  has  been  loaded 
NEND  is  also  used  in  conjunction  with  the  basic  input  data 
and  has  the  following  function: 

NEND  -  0  or  (blank):   Normal  processing  which  implies 
that  there  will  be  more  data  to 
follow. 
NEND  -  9:   End  of  intermediate  station  record.   This 
Implies  that  2  or  more  station  records  are 
being  processed. 
NEND  -  99:   Terminates  all  processing  after  the  last  data 
card  (the  one  containing  the  99)  has  been 


sed. 


Notes  explaining  weather  condition 
(See  sample  input  data  table  CI.) 


Sampling  site  identification  number(s) 
The  site  Identification  is  read  as  a  6 


sampling  conditio 


letter(s)  or  both, 
e-dlgit  alphameric 


Index  code  that  locates  the  lowe 
table  SP(L,I). 

Moisture  tube  identification,  e. 
The  tube  Identification  field  Is 
words . 

Updote  Identification  code. 

Two-digit  Integer  representing  t 


limit  of  the  read  loop  for 


digits  of  year 


SP(L,I) 
L-1,112 
1-1,2 


IWD 
KPAGE 


NOTES(I) 
1-1,9 


NTEBE(I) 
1-1,3 


NUMBER 

NUP 

NYR 

PCMOIS 

PCSTD 

SUMC 


ANUM 
CHANCE  , 


DULP(I) 
1-1,2 


F621(I) 
1-1,16 


F624(I) 
1-1,16 


LM 
LOW 
LUP 
NBRANH 


Coordinate  point 
moisture  meter. 


Average  cou 
See  Input . 


for  the  surfa 


See  Input . 

See  Input. 

Sequential  page  number. 

See  Input. 

Sequential  list  for  data  output  via  S.SU01. 

See  Input. 

See  Input. 

See  Input . 


See  NTUBE(I)  in  the  Input  section 

See  NDIND2(I)  in  the  Input  sectio 

Sequential  list  number  for  dat, 

See  Input. 

See  Input. 

Percent  moisture  by  volume. 

Percent  standard. 


utput  via  S.SU06 


che 


ulated   sum  of   the   counts  made   at   a   given   setting, 
urn  of    three   one-minute   readings. 


(Input/output   variables 
Number   of   one-minute 


ot    included) 


give 


A  six-digit  blank  alphameric  data  field  that 
replace  zeros  in  the  COUNT (I)  vector.  The  r< 
replacement  is  that  blank  spaces  in  place  of 
appear   under   the   heading   counts    (table   C2a)  . 


letting, 
is  used  to 


To   six-digit   alphai 
develop   output   fori 


data    fields    that 


ria 


output    fo 


Variable  output  format. 
Variable  output  format. 
Variable  output  format. 


Variable 


fon 


Variable  Index. 

Variable  index. 

Variable  index. 

Variable  index. 

Variable  index. 

Variable  index  used  in  branching  instructions. 

Variable  index. 

Count  of  number  of  lines  written  per  page. 

Variable  index. 

Variable  index. 

Lower  limit  of  do  loop  for  building  format  statement. 

Upper  limit  of  do  loop  for  building  format  statement. 

Variable  index  used  in  branching  instructions. 
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Symbol 


NCHK(I) 
1-1,3 


NDECS(I) 
1-1,15 


NSNST(I) 
1-1,6 


STOB(l) 
1-1,4 


AREA(I) 
1-1,15 


ID1 
ID2 


LUSE(I) 
1=1,7 


NFN 

NFN2 

NYR 

WTS(I) 
1-1,7 


AREA(ID2) 
ID2-1.15 

ASUB(I) 
1-1,15 

COHP  ) 
IDW2  ) 
NFH2  ) 
WTS(I)) 
1-1,7  ) 


IDWD 
KPAGE 
ID2 
HD 


PERC(l) 
1-1,15 


(Input/output  variables  are  not  Included) 
Description 

Three  one-digit  alphameric  data  fields.   These  three  are 
. ,  - ,  and  blank  sp . 

All  data  in  input  vectors  ND1ND2(I),  NSITE(I),  and  NTUBE(l) 
must  be  right  justified  prior  to  writing  on  storage  tape 
(S.SU01).   The  alphameric  characters  stored  in  vector 
NDECS(I)  are  the  only  valid  ones  allowed  on  the  permanent 
storage  output  tape  (S.SU01). 

Temporary  storage  for  NSITE(I) 
Standard  count  for  depth  probes. 
Standard  count  for  surface  probes. 


SUBROUTINE  LDUSE 


Base  weight  for  given  field.   Equivalent  to  the  total  field 
weight  when  the  first  field  weight  table  is  formulated. 

Variable  integer  used  to  index  AREA(I) .  WTS(I)  and  LUSE(l). 

The  first  two  digits  of  the  watershed  identification  code. 

Last  two  digits  of  the  watershed  Identification  code.   This 
variable  is  also  used  to  index  AREA(ID2) . 

Watershed  identification  from  the  field  weight  table. 

Coding  for  land  use.   See  the  key  at  the  bottom  of  Table  C4. 

Two  digit  integer  representing  the  month  of  the  year. 

Two  digit  integer  representing  the  day  of  the  year. 

Index  code  used  to  specify  the  end  of  a  station  record. 
NEND  =  0  or  (blank):   Normal  processing. 
NEND  =  9:   End  of  land  use  data  for  given  station. 
NEND  -  99:   End  of  field  weight  table  and  terminates 
processing  of  land  use  data. 

Field  number  (land  use  data). 

Field  number  (field  weight  table). 

Last  two  digits  of  the  year,  e.g.,  66  for  1966. 

Land  use  is  measured  by  weight.   The  area  covered  by  a  given 
land  use  is  plotted  on  the  watershed  map  and  cut  out  and  weighed. 
The  weights  for  each  land  use  represented  in  a  given  field  must 
be  determined.   WTS(I)  represents  the  above  weights.   The  sum  of 
the  WTS(I)  weights  must  equal  the  base  weight.   If  not,  each 
individual  WTS(l)  is  corrected  by  the  program  by  the  product 
ratio:   (WTS(I) /SUM)CORR  where  1-2,7. 

Output 


in  given  land  use  (a 


See  Input  (field  weight  table  pla 
in  processing  land  use  data) . 


xillary  tape  to  be  used 


Variable  integer  used  to  index  ASUH(I) ,  WTS(I)  and  PERC(I). 

Watershed  identification  number. 

Page  number. 

See  Input  . 

See  Input . 

See  Input . 

See  Input. 

The  percentage  of  the  total  area  of  a  given  watershed  In  a 
particular  land  use. 


Symbol 


SLAND(I) 
1=1,15 


SL'K 

ioi 


1DENTU) 
1-1,11 


NDAY 


AVYF 


IDENT(l) 

1-1,11 

LTIME 

HON 

NNDAY 

mm 

HYF 

SD 
SDYS 

STI 
STTYR 


TI 


Description 
Variable  integer  used  to  index  LUSE(J)  and  WTS(J). 
Variable  integer  used  to  index  SLAND(JJ) . 
Variable  integer  used  in  branching  instructions. 


The  a 
land 


ulated  sum  of  the  field  weights  for  the  respective 
given  at  the  bottom  of  Table  CA. 


Accumulated 


of  the  weights  for  given  field  subdivisio 


Total  weight  for  the  watershed  being  studied.   Equtvale 
the  sum  of  the  field  weights. 


SUBROUTINE  WIND 


Total  wind  dista 


First  two  digits  of  time  of  day  that  reading  (AMOR) 
(military  time).   Equivalent  to  hours. 


Variable  integer  used  to  index  IDENT(I) . 

;.,  CRAB  CREEK, 


Variable  index  code  that  Identifies  the  type  of  input. 
KODE  -  0  or  (blank):   Normal  input. 
KDDE  »  8:  Recording  scale  reversal. 
KODE  -  9;   Instrument  failure. 

Two  digit  integer  representing  the  month  of  the  year. 

Two  digit  integer  representing  the  day  of  the  month. 

Variable  index  code  used  to  terminate  processing. 
NEND  =  0  or  (blank):   Normal  processing. 
NEND  =  9:   End  of  station  record.   Processing  continues 

with  the  next  station. 
NEND  =  99:   Terminates  all  anemometer  data  processing. 

Last  two  digits  of  the  time  of  day  that  anemometer  reading  wa 
made.   Equivalent  to  minutes. 


66 


1966. 


Last  two  digits  of  year 

Output 
See  Input. 

Average  wind  speed  during  time  interval  TI  (miles/hr.)- 
Average  wind  speed  for  the  month  (miles/hr.). 
Average  wind  speed  for  the  year  (miles/hr.). 
Total  distance  traveled  (miles)  during  time  interval  TI. 
Variable  integer  used  for  indexing  IDENT(I). 
See  Input . 


reading  was  made  (military  time). 


Time  of  day  that  anemomete 

See  Input . 

(-)  NDAY. 

Sequential  list  number. 

Year. 

Total  distance  traveled  (miles)  during  the  month 

Total  distance  traveled  (miles)  during  the  year. 

Accumulated  time  in  hours  for  month. 

Accumulated  time  in  hours  for  year. 

Time  interval  between  two  respective  anemometer  i 

PROGRAM 

(Input/Output  Variables  are  not  Included) 

Defined  as: 

AA  -  YB/4. 

Integer  form  of  AA. 

Previous  value  of  AMON  (See  input  section). 

NDay  converted  to  floating  point  arithmetic. 

Defined  as: 

D  -  9999. 9-AM. 


eadlngs  In  hours. 


(Input/output  varl 

CHKFTOO) 

Library    aubroutlnt 

30-minute   break  pc 

during    processing, 

00  RR 

Total    correction   I 

WTS(7).      These   ar« 

not  Included) 


be  prorated  among  field  weights  WTS(2)- 
subdivlaions  of  the  main  field. 


Variable  integer  used  to  index  M(I),  MM(I). 
Variable  Index  used  in  branching  instructions. 
AA  converted  to  integer  form. 
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CONTINUED 


Symbol 
LBR 
LINES 
LSN 


M(I) 
1=1,12 


MM(I) 
1=1,12 


MTOT 


it: 

TTT 


AMAX(MD,ND) 

MD=1,12 

ND=1.31 

AMIN(MD,ND) 
HD=1,12 

KD=1,31 


Description 

Variable  index  used  in  multiple  branch  instruction. 

A  count  of  the  number  of  lines  to  be  printed  per  page. 

Index  code  having  possible  values  of  0  or  1_. 

LSW  =  0:   Data  column  heading  are  written  for  the  first 

output  sheet . 
LSW  =  1:   Normal  processing  continues. 

Accumulated  hours  by  month  for  the  year  (time  curve). 

Temporary  storage  of  HON. 
Number  of  days  per  month. 

Previous  value  of  MDN. 

Accumulated  sum  of  the  hours  per  year. 

Previous  value  of  T2. 


observations 


Defined  as: 

TT2  =  (ANDAY  -  1)  24  +  THEN/60. 


Accumulated  hours  to  the  end  of  the  previous  month. 
Defined  as: 

TTT  =  M(MDN-l) 

SUBROUTINE  TEMP 

Input 

Storage   area    for  maximum  daily    temperature. 


for  minimum  daily   temperatu 


Variable   integer   used   for   indexing   ID(I). 

Location  and   station   identification,    e.g.    MDOREFIELD,   W.   VA. 


Symbol 
NNYR 


AAA 
All 


C(I) 
1=1,12 


COMP1 
COMP2 


KKK 
KKKK 


Year    -   defined   as: 

NNYR  -  YR  +   1900. 

PROGRAM 

(Input/output   Variables    not    Included) 

Defined   as 

AA  »  YK/4. 

Integer    form  of  AA. 

Number   of  days    in  Month  I    (1=1,12). 

Accumulated   sum  of  maximum   temperatures    for  month  I. 

Accumulated   sum  of  minimum  temperatures    for  month  I. 

Maximum  monthly    temperature. 

Minimum  monthly   temperature. 

Variable    integer   used   to   index   C(I),    CC(I),    AMAX(I   J) 
AMIN(I.J),    IMAXU.J),    OHN(I,J),   MM(I),    CMAX(I)    and   CMIN(I). 

Upper    limit   of  search    loop.      Equivalent   to  MM(I). 

Variable   integer   used   to   index  AMAX(I.J),    AMINQ.J),    IMAX(I   J) 
and   IMIN(I,J). 

Index   code. 

Index  code  equal  to  0  used  in  branch  instruction. 


Variable  integer  used  to  index  IMAX(L.I). 

Index  code  having  possible  values  of  I   or  2  used  in  branching 
instruction. 

Upper  limit  of  write  loop.   Equivalent  to  the  number  of  days  in 
Tebruary. 

Variable  integer  used  to  index  IMIN(LL,I). 

Number  of  days  in  month  I. 


Two  digit  integer  representing  the  month  of  the  year  and  also 
used  to  index  AMAX(MO.ND)  and  AMIN(MD,ND). 

Two  digit  integer  representing  the  day  of  month  and  used  to 
index  AMAX(MO.ND)  and  AMIN(MD,ND). 

Index  code  used  to  terminate  processing. 

NEND  =  0  or  (blank):   Normal  processing. 

NEND  =  9:   Terminates  input  summarized  data  and  proceeds 

to  next  station  record. 
NEND  -  99:   Terminates  input  summarized  data  and  then 

terminates  all  max-min  temperature  reduction. 


Two  digit  integer  repr 


ing  the  last  two  digits  of  the  year. 


AMAX(J.I) 
J -1,12 
1-1,31 

AMIN(J.I) 

J-1,12 

1=1.31 

AVG(I) 
1-1,12 


CMAX(I) 
1-1,12 


CMIN(I) 
1-1.12 


IMAXU.I) 

J-1,10 

1-1,12 

IMIN(J,I) 

J-1,10 

1-1,12 


See  Input. 

Average   of   the   maximum  and   minimum  temperature    for   month   I. 
Average  maximum   temperature   for   month  I. 
Average   minimum   temperature   for  month  I. 
Maximum   temperature    for   month   I 
Minimum   temperature    for   month   I. 


Variable    Integer   used   to   Index  AMAX(J.I),    AMIN(J.I),    AVMAX(J), 
AVKIN(J),    AVG(I),    CMAX(I),    CKIN(I) ,    IMAX(J.I),    IMIN(J.I)    and 
ID(I>. 

Date(s)    of   occurrence   of    the   maximum  monthly    temperature. 


rence   of    the   minimum  monthly   temperatu 


Variable    integer   used   to   index   AMAX(J.I),    AMIN(J,I),    IMAX(J.I) 

and    TWIN' J. I) 
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LISTING    OF   THE    SOURCE    STATEMENTS    FOR   PROGRAM  D 


SFILE 
»ETC 
SETC 


-FTCOO.-.UOO.UU9.UUUBLE.REtLS.HlGH.PKINI,BLOC.=160, 
LRL=15,RCI=09,TYPE3.ERK=RERRX.,EOF=REOF X . . tOfl=REORX . 
HOLD 


JFILE 
JEIC 

-F TCO2.-.U0 2, U02. DOUBLE  .RttL  .  PR  1  NT  .BLOCK. 
LRL=15.RCT=10.TYPE3.ERK=RERRX..EOF=REOFX 

160. 
.EOR=REORX.. 

IETC 
JFILE 

MOUNT  1 

-FTC01.-.U01.U01. DOUBLE. REELS.H1GH, PR  INT 

BL0CK=160. 

JETC 
SETC 

LRL=15.RCT=09.TYPE3.ERR=RERRX..EOF=REOFX 
MOUNT  1 

.EOR=REORX., 

SIBFTC    UPOAIE 

C                PROGRAM    U»»»*UPUATE 

DIMENSION    LI22) 

INTEGER    UPol .UPD2.UPtl .UPE2.uPCUUE.uPCl.UPC2.UPC3 

UPCO 

DATA    NCHECH/3H          / 
KK=0 

REWIND    0 
REWIND    1 

REWIND    2 
NTAPE1=0 

10 

NTAPE2=0 
READC5.70UIUP61.UPB2.UPE1.UPE2.UPCODE.NUMBER.INCR 

NFL.NFOR.NEND.NC 

700 

FORMAT  12  I  A3, 15) , A3. 10. 12. 01 11 
K  =  0 

IF (NTAPtl 
IF(NTAPt2 


.NFLIGO  TO  12 
Nt.NFLlGO  TO  15 


GO  TO  15 
NTAPE1=0 


WIND  1 

GO  TOI  2i 


3O.0U.20U) .NFUR 


,26.271 ,NFL 
11IILI  I  I.  1  =  1.10)  ■ 


FORMAT) 13A 
GO  TO  50 


READI2.71 
GO  10  50 
READ  I  5.71 
FORMAT) 13 
GO  TO" 50 
GO  TO) 31 


1) (LI  I  I . 1  =  1.101 


32.331 .NFL 


,UPC1 
.UPC1 


UPC2 
UPC2 


READI 1.72 
FORMAT  I  13 
GO  TO  50 
READI2.72 
GO  TO  50 
READI 5.  I  i 


DILI  I  I.  1  =  1.221  . 
A6.A1.7A6.A2.A3. 


II  ILI  I  1.1  =  1  ,JJ  1 
5IILI 1  I . 1  =  1.221 


UPU 
UPC1 


,UPC2 
,UPC2 


200 
201 
210 


FORMAT) 13 
GO  TO  _50 
GO  TO  I  201 
READ) 1.21 

F ORMAI I i < 
GO    TO    50 


A6.A1/7A6.A2.A3. 

.202.203  1 .NFL "~ 
0  I  ILI  I  UJ_=  1  . 2  2^ . 
A6.A2 .7A6.A2.A3, 


2)   I 
t^2il 


READI 5.21 11 ILI I ). 1=1.221 .UPC1 .UPC2 i 

FdRMA_T_l  )J  AjiiAi/  7Af>jA2_,A3 ,1 5 ) 

GO    TO    50 

GO    T0I01 .02.031 .NFL 


01    READI1.7  30IILIll.i=l,12l .UPC1.UPC2 

730    FORMATI 12A6.A3. 151 

GO    TO    50 

02    READI 2.7  30] ILI 1 1 . 1=1 .12! ,UPC1 .UPC2 

GO    TO    50 

03    READI 5.7301 1 L 1  I ) • 1  =  1 .121  .UPC1  .UPC2 

5*1     IFIUPC1.EO.UPB1.AND.UPC2.EO.UPR2  IK=1 

))Pr3  =  llPr) 

UPC0=UPC2 
_S|2jUU 


IF^K.LT  -  '~10IGO  TO  55 


10IILI11.I  =  1.221  . UPC  1. UPC  2 


55 

CALL    CHK»PTI30I 

[FIK.EO.OIGO    TO  120. 30. 00. 200  1 .NF OR 

IF IUPCODE.NE. NCHECK IUPC1=UPC00E 
IFINC.EO.O.OR.NC.E0.7IGO    TO    56 

UPC2  =  LASNUM-MNCR 
GO    TO    58 

56 
58 

JF(NUMRFR.NF.0  1UPC2=NUMRFR 
CONTINUE 

60 

GO    TOI60.61.62.2001 ,NFOR 

WRITE  10.711)  ILI  I  1  .I  =  1.10I.UPC1,UPC2 

61 

GO    TO    65 

WRITE  10,721  I  ILI  1  I  ,I  =  1,22I,UPC1,UPC2 

62 

GO    TO    65 

WR1TE(0,730)IL(II.1=1,12) ,UPCl,uPC2 

200 

GO    TO    65 

WRITEI0.210IILII1  ,I=1,22),UPC1,UPC2 

65 

LASNUM=UPC2 
IF((NC.EO.l.OR.NC,EO.2),OR.NUM8ER,EQ,0)GO    TO 

100 

100 

NUMBER=NUMBER+INCR 
1FIUPC3.EO.UPE1.AND.UPCO.EO.UPE2 1G0    TO     101 

101 

GO    TO     15 
IFINEND.EO.91G0    TO    70 

60 

IFINC.E0.2.0R.NC.E0.7IUO    TO    75 
IFINEND.NE.8IG0    TO    10 

66 

GO    TOI66.67) .NFL 
NTAPE1=1 

REWIND    1 
PAUSE    1 

67 

GO    TO    10 
NTAPE?=2 

RFWINO    2 
PAUSF    7 

75 

GO    TO    10 
REWIND    0 

PAUSE    0 
GO    TO    60 

1 

REWIND      I 
CALL    EXIT 

APPENDIX  LIST   D2 


DETAILED   DESCRIPTION 


DESCRIPTION  OF   VARIABLES 

rlptlon 

integer  for  indexing  L(I)  . 

ncing  interval  (e.g.,  1  if 
ed). 


LCI) 

The    storage   area    for    input:    data    (data    being   updated 

1=1,22 

which   includ 

;s    correscions,    merging   or    rewriting). 

The   data   are 

stored    in   a lphameric   mode   with   a   maximum 

field  width 

3f   6   digits. 

NC 

Variable    index   code   specifying  when    continuous    sequencing    is    requ 

and  when   the 

corrected    tape    (S.SUOO)    is    to   be   removed   and   a   new 

tape    loaded. 

NC  =   0 

Normal   output    continues   and   all    changes    that   are 
required    in    the    sequence   number   are   controlled   by 
NUMBER  and    INCR. 

NC   =    I: 

Continuous    sequencing    is   accomplished   by   adding 
INCR  to   the   last  value  written  on  tape  00. 

NC  =    2: 

This   code   allows    for    the   same   sequencing  procedure 
as   when   NC  =    1,    but    it   also   allows    for   rewind   of 
tape   00   and   the    loading   of   a   new   tape. 

NC  =    7: 

Rewind   and    remove    cape.      Load   a   new  output    tape. 
The   sequencing   procedure    is    the    same   as   when  NC  =   0 

NEND   =    0: 

Normal    processing. 

NEND  =    8: 

The    tape   being    read    is    rewound.      The   computer 

pauses    to   allow    loading   of   the   next    input    tape 

NEND  =   9: 

Terminates   all   processing. 

Variable   index 

used    to   specify    the   utility   unit   or    tape   drive 

from  which    the 

input   data    are    to   be   read. 

NFL  o   I; 

Data  on   S.SUOl. 

NFL  =   2: 

Data  on   S.SU02. 

NFL  =   3: 

Data  on   S.SU05    (cards). 

Variable    index 

used    to    specify    the   input   data    format. 

NFOR  =    1: 

Precipitation   data    (90-characcer   records    in   th 

form  of   a   90-column  card   image). 

NFOR  =    2 : 

Runoff   data    ( 131-character   records    in   the    form 

of   a    131-column  card   image). 

NFOR  =    3: 

80-character   records    (80-column   card    images). 

NFOR  =   4: 

Soil   moisture   data    (132-character   records    in   t 

form  of   a    132-column   card   image). 

Beginning   sequ 

:nce   number    for   the   corrected   output    tape 

if   different    f 

rom   input. 

Beginning  update  code  of  da 
output  tape  (S.SUOO). 


Beginning  sequence  number  of  the  data 
corrected  output  tape  (S.SUOO). 


OF  THE  VARIABLES   USED   IN   PROGRAM  E 

UPCODE         Update  code  of  data  to  be  written  on  the  corrected  output 

tape  if  different  from  input. 
UPC1  Update  code  from  input  data. 

UPC2  Sequence  number  from  input  data. 

UPE1  Ending  update  code  for  the  data  to  be  written  on  the 

corrected  output  tape. 

UPE2  Ending  sequence  number  for  the  data  to  be  written  on  the 

corrected  output  tape . 


I 

~_e    Input. 

LCD 

See   Input . 

1-1,22 

l-l"  . 

See  Input 

UPC2 

See  Input . 

Program 

(Input /output 

variables  ( 

CHKiT(30) 

Library  subro 

utlne  for 

LASNUM 
NCHECK 


UPC3 
UPC4 


IBM  7040.   Information  is  written 
on  S.SU03  every  30  minutes  to  allow  restart  of  the  program 
in  the  event  that  machine  failure  occurs. 

Output  routine  for  this  program  consists  of  writing  from 
input  units  S.SUOl,  S.SU02  or  S.SU05  onto  S.SUOO.   K  is 
an  integer  index  that  specifies  when  data  is  to  be 
transferred  from  the  input  media  to  the  output  media. 

K  -  0:   Data  not  transferred  (no  output). 

K  =  I:   Data  are  transferred. 

Variable  integer  used  to  determine  when  to  call  CHKFT(30) . 

Previous  sequence  number 

A  variable  used  to  determine  if  a  new  update  code  is 
required  for  the  correction  tape.   NCHECK  Is  retained  in 


rage 


3  blank  cha 


Variable  index  used  to  specify  a  rewind  of  S.SUOl. 
NTAPE1  -  0:   No  rewind. 

NTAPEl  -  1:   Beginning  of  a  new  tape;  rewind  to  assur 
that  reading  begins  at  the  start  of  the 
cape. 
Variable  Index  used  to  specify  a  rewind  of  S.SU02. 
NTAPE2  -  0:   No  rewind. 
NTAPE2  -  I:   Rewind. 

Temporary  storage  for  UPCl. 

Temporary  storage  for  UPC2 . 
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LISTING   OF  THE    SOURCE   STATEMENTS    FOR  PROGRAM  E 


SF1LE 
SETC 


MAP.NOSOURCE  

iUOO.UOO, DOUBLE. REEL. PR  I  NT. BLOCK* 160. 

•E0F=REOFX..E0R=REORX. 


-FTCOO. 
LRL=15.RCT=10.TYPE3.ERR=RERRX 


SETC 
SFILE 


.U01.U01. DOUBLE. REEL. PR  I  NT. BLOCK. 160. 


SETC 
SETC 


LRL=15.RCT=10.TYP£3.ERR=RERRX..EOF=REOFX..EOR=REORX. 
MOUNT  1 


SIBFTC  BLK 


pog;p«"  F 


PROGRAM  FOR  COMPILING  ARS  MISCELLANEOUS  PUBLICATION  INFORMATION 
DIMENSION  ARUNI  12.331  .  ARAIN  I  12  ,  33  I  .PI  12.33  I  .CT ABLE!  12^33  I  .NTMAXI12 
1.33I.NTMINI12.33) .KDI 12 . 33  I .PYRSPI 12 1 .YRSRECI121 .AREA  I  151 .RAU5I  .M 
2112 I.NBLKI4I .NUMB1BI .NC0DEI3) .NT (132.61 .MATC  I  32  .  4  I  .NTYPEI  8  I .TWTSI6 
31 .AMEANI12I .AVMXI 12) .AVMNI 121 


EQUIVALENCE  (NTMAXI1.1I .CTABLE ( 1 • 1  I . ARUNI 1 . 1 ) I . I P I  1 . 1  I .NTM INI  1 . 1  I . 

1ARAINI1.1  I  )  .(AVMXU)  .PYRSPI 1  I  I  .  I  AVMN  I  1 )  .YRSRECI1JJ 

PROGRAM  CONSTANTS 


DATA  NTYPE/1H 
DATA  N6LK/6H 


1HT.1HE.1HS.1HL.1HH.1HN.1HM/ 


DATA  M/ 31. 28. 31. 30, 31. 30. 31. 31. 30. 31. 30. 31/ 
DATA  NUMB/111.222,122.112.212.221.121.211/ 


INTEGER  ANTA.ANTN.RBA.RBN.REA.REN.OANTA.QANTN.OBA.QBN.OEA.QEN.CORT 


1. COUNT. RSTAS. OUT 
REWIND  0 


REWIND  1 

CALL  CHKPT I ?  I 


PARAMETER    CARD-IF    ANTN    BLANK    30-DAY    ANTECEDENT    CONDITIONS    0H1JTED 

READI5.1000IANTA.ANTN.RBA.RBN.REA.REN.QANTA.QANTN.OBA.OBN.OFA.aEN. 
1C0RT.RSTAS.NEND.NTEMP.N6P~1.N6P2.  IWIDIN.INGAGE.KRWDO.KRWDl 
F0RMATI6I1X.A3 . A5 I . I  1 . 1 2 .4 1 1 . 1 4 . I  2 .2  1 lj 


1FIKRWD0.EQ.0IGO  TO  9214 
END  FILE  0 


REWIND  0 
IFIKRWD1.EQ.0IG0  TO  9211 
END  FILE  1 
REWIND  1 


DETERMINE  IF  30-DAr  ANTECEDENT  CONDITIONS  NEEDED 


9211  K0CHK=9 


K0RAI=8 
KEND=99 


NF0R=1 
NBR  =  1 


KIW  =  0 
IFIRSTAS.EO.OIGO  TO  11 


NF0R=2 
NBR  = 


NGO=0 

L»ST=1 


KRUN=1 

DO  911  1=1.1? 


PYRSPI 11=0. 
YRSRECI 11=0. 


GO  T0I965.961I .N0P1 


LOAD  WATERSHED  CONVERSION  FACTORS-3  CARDS 


DO  4  1=1.15. 
JJ=1* 


READI 5.1007  I  (RAIJ1 .J=I .JJI .IAREAIJI .Jrl .JJ) 

FORMATI5F10.10.5F6.2I 

GO  T0I960.1I .N0P2 


LOAD  STATION  AVERAGE  MONTHLY  RAINFALL  AND  NUMBER  YEARS  RECORD  PER 
MONTH  FROM  PREVIOUS  YEARS  COMPUTATIONS-TWO  CARDS 


1  DO  9  1=1.12.6 

KK=I»5 
9    READ[5.1020UPYRSPIKI.YRSRECIKI.K=I.KK> 
20    F0RMATI6IF6.2.F4.0) I 


LOAD  THIESSEN  WEIGHTS 


READ  15.10051  ITWTSI1  1.1  =  1.61 
ATI6F3.2I 


ZERO  STORAGE  AREA 


DO  10  1»>  12 
DO  10  J=1.33 
PI  I .Jl=0. 
CTABLEI I.JI=0. 
KD1I.JI=NTYPEI1) 


K«0 
NRSTAS=0 


COUNT= 
J<UMBER-=0 
NYR  =  0 
LBR  =  1 


REWIND    2  . 


j>AST     YEARS    AVERAGES    AND    YEARS    OF    RECORD 
DETERMINE    THIESSEN    WEIGHT    OF    R-l     GAGE 
CORT-l.DATA    ON    CARDSITAPE    51 
C0RT=2,DATA    ON    TAPE    0 


GO    TO(30,950I.NBR 
GO    I01U0.140I.C0RT 


130 
1040 


R-l  DAILY  RAINFALL  ON  CARDS 

READ(5.1040)MONTH.NDAY.NYEAR.DAC .LTYPRE.JEND 

FORMAT! 12. 21 3. 2X.F4. 2. A1.64X.I1 I 

IFI JENO.EO.8IREA0I5.1005I ITWTSI I  I  .1  =  1  .61 

PIM0NTM,NDAYI=TWTSI1 I  »DAC 

D0_LaiJ_=li8-   _ 


IFILTYPRE.EO.NTYPEI  I  I IGO  TO  136 
135  CONTINUE 


1  =  1-1 

136  EDI  MONTH, NDAY I =NTYPE I  I  I 
IFINF0R.EQ.5 IGO  TO  1777 
IFI JEND.NE.9)G0  TO  130 


IFIQANTN"NE.NBLKI4> 1READC5. 10051 ITWTSI II .1=1.6) 
GO  TO  30 


R-l  DAILY  RAINFALL  ON  TAPE  0 


NGO  =  0 
LTYPRE=NTYPEI II 


NETYPE=NTYPEI 1) 

GO  T0  20 


145     IFI  IWID.EO.IWIDINIKIWM 
IFIKIW.EQ.OIGO    TO    20 


IFIANTN.EQ.NBLKI4I IGO  TO  3144 

IFI ANTA.EQ.KUPDAT. AND. ANTN. EQ.NUM) RE API  5.10051  I TWTSI I  I . I  =  1 .6  I 
3144  IFINGO.NE.OIGO  TO  148 
NGO'l 


NETYPE=LTYPRE 

3145  NDAY=NDAYO 

DAC=DACO 
MONTH=MONTHO 


NETYO=NETYPE 
GO  TO  20 
148  IFINDAY.EO.NOAYOIGO  TO  147 
NP=LTYPRE 


LTYPRE=NETYO 
NETYPE=NTYPEI II 


GO  TO  131 
1777  LTYPRE=NP 
147  IF(LTYPRE.NE.NTYPEI1I1NETYPE=LTYPRE 

IFI IWID.EQ.99.0R.IWID.E0.999IG0  TO  7729 
GO  TO  3145" 


END  R-l  DAILY  RAINFALL  COMPUTATIONS 


RUNOFF  DATA  ON  TAPE  1 


7729  IFIANTN.E0.NBLKI4I  IGO  TO  7730 
READ  I  5.10031 ITWTSI I  I .1  =  1.61 


7730  NF0R=2 

30  READI 1.102111W.ID.MONQ . NDAYQ . NYEAR.HRQ . AJRATE .RUNT  1 .ACDR .ACYRR.KOD 
1Q.KUPDAT.NUM 

1071  FnRHATII3.l2.3I3.F8.0.37X.FlO.O.10X.2F10.0.1OX.F10.0.I3.1».A3,A5l 

IWID=IW»100*ID 
IFINYR.NF.01RO  TO 


GO  TOI9905, 99061. NBR 

9905  DO  5  1=1.17 

DO  5  J=1.33 

5  ARUNI1.JI=0.    _ 

9906  NYR=1 

A.NYFAR 

A=A/4. 
NY  =  A 


AA  =  NY 
MI7)=78 


IFIA.EQ.AA]MI2I=29 

405  GO  TOI406. 406. 170. 1701 .KRUN 

406  GO  TOI31.33) .NBR 


~C       DETERMINE  BEGINNING  OF  ANTECEDENT  RUNOFF 
C .  . 

'31  IFI0ANTA.E0.KUPDAT.AND.0ANTN.E0.NUM)K=1 


BRANCH  TO  STATEMENT  169  DETERMINES  DAILY  DISCHARGE  IN  CFS 


IFIK.EO.OIGO  TO  I  30. 169). "NBR 
3336  IFIK0DQ.E0.7IARUNIM0NQ.NDAY0)=ACDR 
GO  T0I33.40) .LAST 

C      DETERMINE  BEGINNING  OF  SELECTED  RUNOFF  EVENT 


33  IFIQBA.EO.KUPDAT.AND.QBN.EQ.NUMIGO  TOO*. 41)  "NBR 
KRUN«1  __ 

GO  TOI30. 1701. NBR 

34  LAST =2     

GO  TO  3336 

40  KRUN=2 


ARUN I  MONO . NDAYO ) =ACDR 

DO  2241  1=1.12 

00  2241  J=1.33 
224LAR*LMX.J)=0. 
C 

C      RA1NFAII  DATA  ON  TAPE  0 ! ; 

C 

41  LAST-1 
K»0 
N5Q=0 
70  READI 0. 1010) IWID. IGAGE.MONTHO. NOAYO. NYEAR.HR .Al . ACP.DACO.LTYPRE . KO 
1DE.KUPDAT.NUM 
1010  FORMAT  I  I4.2X.I1.3I3.F8.O.1OX.2F8.0.8X.F8.0.1OX.A1.I3.2X.A3.A5J 

IFIR«TAS.EO.0.OR.OANTN.EO.NBLKI4)IG0  TO  22 
1FIQANTA.EQ.KUPDAT.AND.0ANTN.E0.NUMIREADI5.1005)ITWTSI|),J-1.._6J.  _ 

22  IFI K0DE.E0.2.AND.NFOR.EQ.4IG0  TO  160 

IFIK0DE.NE.P.AND.K0DE.NE..2IG0  TP  20 . 

GO  TOI21.26.101.150.145I .NFOR 


L _  -    — 

C       DETERMINE  BEGINNING  OF  30-DAY  ANTECEDENT  RAINFALL 


C 


21  IF(ANTA.E0.KUP0AT.AND.ANTN.EO.NUM|K.l 

BRANCH  TO  STATEMENT" 150  DETERMINES  DAILY  THIESSEN  WTO  RAINFALL 


IFIK.EO.OIGO  TOI20. 1501. NBR 
K  =  K*1 

IFIK.E0.21G0  TO  4275 
IFINDAY.EO.NOAYOIGO  TO  4275 
25  ARAINIMONTH.N0AYI=DAC 
4275  GO  TQI26.28I.LAST 
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CONTINUED 


C      DETERMINE  BEGINNING  OF  SELECTED  RAINFALL  EVENT 
C 

26  IFIRBA.EQ.KUPDAT.AND.REN.EQ.NijMlGO  TO(  27,80)  .NBR 

GO    TO    150 
8"!     N  =  -NOAYO 

NTY=NTYPE ( 1 1 

IF(ACOR.N£.0.0.AND.ACOR.LT.O.000O5)NTY=NTYPE(2) 
WR  J TE (2,2050 1  MONT  MO, N . CACO . ACDR . NTY.KOCHX 
2050    FORMAT  12  1  3.  F  5.2  »F7.(.,A}  .59X,I2  > 

00    2040     1=1,3 
201.9     WRITE  (2,2055)  I N6L* I  J)  ,J=1  ,4  1  .KOCHK 
2055     FOPWATI3A6.A5.55X,  I?  ) 
GO    TO    4081 
?7     LAST=? 

IFIDACO.EO.O.OIGO    TO    28 

DAODACO 

GO    TO    2  5 

:      WRITE  30-DAY  ANTECEDENT  DATA  ON  SCRATCH  TAPE  2 


IF ( APuNI  I  , JJ  .EQ.O.O.AND.APAIM  I , J)  .EO.0.01GC  TO  6659 

NTY  =  NTYPE ( 1  I 

IF (A  PUN!  I  , J)  ,NE .O.O.AND.ARUNI  I . J  )  . L T . 0 . CC005 ) GO  TO  55 


:       RAINFALL  OR  RUNOFF 

: 

WRITE(2.1032)I.N0,ARAIMI,Jl 
1C32  FORMAT (21 3.F5.2.F7.4.A1) 
GO  TO  6658 


ARUNl  I  , J)  ,NTY 


C  TRACE  PUNOFF 
C 

55  NTY=NTYPE(2) 

WRITE(2.1C33H.ND,ARA[N(I,J),NTY 

1033  FORMAT  [2I3,Fe,.2,7X,41) 

6658  COUNT=COUNT+; 

66^0  CONTINUE 

7"  CONTINUE 
C 

C  READ  AND  STORE  ANTECEDENT  CONDITIONS 

r 

4C79  REWIND  2 

DO  4247  [=1 .COUNT 
4247  RE  AD  (2. 20201  (MATCH, J). J=l. 4) 

7r  ?'      FQPMiT (  3A* ,A1] 
PEWIND  2 
GO  TO( 4nfl 1  ,  ] 75  I  ,LPP 


BEGAN  COMPUTATIONS  FOR  SFLt 

4C81  SUM=n.'. 
ACP=0.00 
AI=0.00 

NFQR=3 


MNFALL  ^^NT 


4=-0 


K]  |_HR  =  HP 
AT  =  Lh-P 

LMIN=(HR-AT)*60.+0.005 
LCODT=LHP»1CO*LMIN+ 10000 
SUM=SUM+ACP 
IF(M4.NE.0lGO  TO  1038 

M4=  1 

GO  TO  1039 
1038  IF(MONTM.EO.M0NTHO.ANU.NDAY.E0.NDAYO)GO  TO  102 
1C39  ND1=-NDAY0 

WRI TE(2»1036)MONTHO,ND1 .LCODT.A]  . SUM, K OR A  I 
10  36  FORMAT  (?M.  1 6 . F&. 2  .  F5  .  2 . S5X , 1 ? ) 

GO  TO  103 

102  WRITE(2,irJ35)NBLK  (1  )  .LCODT.AJ  ,5UM,K0RAI 
10  35  FORMAT  I  Aft,  I6,F6.2.p(i.?,5cx.I2) 

103  NUM6EP=NUM&ER* 1 

DETERMINE  END  OF  SFLFCTEO  RAINFALL  EVENT 

IF  I REA.EO.XUPDAT.AND.REN.EO.NUMiGO  TO  149 
GO  TO  150 

COUNT  NUMBER  OF  RAJNGAGE  STATION  PROCESSED 

.N«P 


r.n     TOI  17*>,4I 
NRSTA*  =NPSTA 


150  IF INGO.NE.OlGO  TO ( 152.155  1  ,N6R 
NG0=1 

152  month=montho 

nday=ndayo 

DAC=DACO 
IGG=  [GAr,F 

r.o     in?', 
155     IFIIwIDIN.FO.IWlD.AND.  1NGAGE.F0.  I  GAG17  .  AND.NDAY 
1AV 1 =P(MONTH,NOAY] *TwTS( IGAGF l*DAC 
GO     TO     15? 

C  L»ETERMlNfc     |F     ALL    PA  I  NGAGE  S    HAVE     bEEN    ANALYZFD 

C 

160     PI MONTM.MJAY) =P|MONTH,NDA 
IFtNRSTAS.E&.RSTASlGO    TO 
DO    2561     1=1.2 
2  561     wRI  16  (2.206C)  (NfcLK(Jl.J=l. <•)•'' OP  AI 
2C6r     FORMAT!  3A*-.A5.55X.I?) 
V  iMpFP^NH^pFR*  ? 

PEAD(5«2l<5     |R-.A,RFK,RFA,PEN,1ANTA,OANTN,NFNn,IWlOIN,INGAGE 
2160    FORMAT (9X.3I1X.A3.A5)»21X,I1.^X,I4,I2) 

IF  (OANTN.NE.NbLKIM  |RFAr-(  5.1005)  (TWTSt  I  )  -1  =  1*61 

NFOR=? 

GO  TO  4  1 


C      DAILY  DISCHARGE(CFS) 
C 

169  XRUN*1 

170  GO  TOt 179,171) .NBR 

171  IF( 1WIDIN.EQ.IWID.AND.K0DQ.EQ.7)CTABLE(M0NQ,NDAYQ)=AREA[ IDl'ACDR/ 
13.80165? 

GO  TOt 30.41 ,179.401) ,KRUN 
C 

C      BEGAN  SELECTED  RUNOFF  EVENT  AND  OUTPUT  OF  ALL  DATA 
C 
4080  COUNT=0 

WRI  TE  I2.2562)KEND 

2562  FORMAT177X.I3) 
REWIND  2 

2  564  RE AD (2.2563) NA1 ,NA2 ,NA? ,NA4 .NA5 

2563  F0RMAT(3A6»A1 .58X.I3) 
IF  INA5-E0.991GO  TO  175 
IFfNA5.NE.91GO  TO  2564 
COUNT=COUNT+l 
MATCICOUNT.l )=NA1 
MATCICOUNT.2 )=NA2 
MATC (COUNT, 3 )=NA3 
MATCIC0UNT.4 I =NA4 

GO  TO  2564 
175  KRUN=3 

PEWIND  2 
NRUOFF=l 
J  T  =  1 

RUNT  1=0. 
suMO=n. 

MM=1 


MP  =  1 

GO  TOt 176. 170) ,NBR 

NOM=MONO 

NDD=NDAYO 

|F immm.eq.1 IGO  TO  182 

GO  TO  30 

IF(KODO.NE.O)GO  TO  30 

SUMO=5UMQ  +  RtjNT  I 

L?W=1 

IFINDO.EO.NDAYQ.AND.NOM.EO.MONOIGO  TO  182 

L^W:? 


GO    TO    161 

182 

IF IMMM.EQ.1 )LSW=2 

18] 

NTRACEM 

NOD=-NDAYO 

If ( SUMO. NE. 0.0. AND. SUMO. LT 

:  7  ] 

GO    TOI 180. 178) .NBR 

178 

AJRATE=A JRATE/RA ( ID) 

111 

IHR»HR0 

«T=LHR 

LMIN=(HRO-AT)«60. +0.005 

LT1MEO=LHR*100+LMIN+10000 

.0.00005>NTRACE=2 


C      SELECTED  EVENT  OUTPUT 

NUMBER  OF  ANTECEDENT  VALUES  STORED  AS  COUNT 
C      ONLY  ONE  VALUE  STORED  PER  STATION  FOR  NEW  FORMAT 
C      NUMBER  OF  RAINFALL  VALUES  STORED  AS  NUMBER 
C      DETERMINE  DATA  TO  BE  WRITTEN  AND  ITS  FORMAT 
C 

190  IFIMR.GT.COUNTIGO  TO  192 
IF (MR. GT. NUMBER )GO  TO  210 
r,0  TO  in 

192  IF (MR.GT.NUMBER)GO  TO  201 

193  READ(2.20D1)MODA.LT1MEP.NAI,NSUM.<ORAI 

2001  FORMATI3A6.A5.55X.I2) 
1FIKORAI .NE.8IGO  TO  193 

C 

C      RAINFALL  ONLY 

C 

GO  TOI4232.4233  )  .NRUOFF 

42  33  WRITEI7.2012  1MODA.LT  IMEP.NAI.NSUM.MM 

2C12  FORMAT!  19X.3A6.A5.30X,  In  I 
GO  TO.  220 
C 

C      RAINFALL  AND  RUNOFF  ONLY 
C 

".232  GO  TOI9540.9541 I .LSW 

95*0  GO  TOI300. 9542) .NTRACE 

300  WRITEI7.2002JM0DA.LTIMEP.NAI,NSUM,LT IMEG.A JRATE . SUMO ,MM 

2002  FORMAT  I 19X  .  3A6 . A5 .6X , I  6 .F 10.4 .F7 .4 . IX . I  8 > 
GO  TO  220 

95*2  WRITEI7.9St.3IMODA.LTIMEP.NAI  iNSUM.LTIMEO.AJRATE.MM 

9543  FORMAT!  19X.3A6.A5.6X.I6.F10.4.7X.1HT.I8) 
GO  TO  220 

9541  GO  TOI301 .95441 .NTRACE 

301  WRITE! 7.2006 IMODA.LTIMEP.NA  I .NSUM, MONO. NOD .LT IMEO .A JPATE .SUMO. 
2  006  FORMAT I19X.3A6,AS.213.I6.F10.4,F7.4,1X.I81 

GO  TO  220 

9544  WRITE17.9545IM0DA.LTIMEP.NAI . NSUM.MONO ,NGD .LT1MEO.AJRATE.MM 

9545  FORMAT  I 19X.3A6.AS.2  1 3.I6.F10.4.7X.1HT.I8I 
GO  TO  220 

C 

C      RUNOFF  ONLY 

C 

201  GO  TOI9546.9550 I .LSW 

9546  GO  T0I200. 95471 .NTRACE 

200  WRITEI7.2000ILTIMEO.AJRATE.SUMO.MM 
2000  FORMAT  I48X.I6.M1.4.F7.4.1X.I8) 

GO  TO  220 
954  7  WRITE(7.9548  1LTIM£0,AJRATF.MM 
9548  FORMAT(48X.!6.e 10.4 . 7X . 1 HT .  I  8  I 

GO  TO  220 

9550  GO  T01202. 9551  I  .NTRACE 

202  WRI TE ( 7. 2 00 7 ) MONO. NOD. LT I MEO. A JRATE . SUMQ .MM 
2007  FORMAT 142x,213.16tF10.4.F7.4.1x.l8  1 

GO  TO  220 

9551  WRI TE I7.9S52IMONO.NOD.LTIMEO.AJRAIF.MM 

9552  F0RMATI42X.2I 3.I6.F10.4.7X.1MT.I8I 
GO  TO  ??' 
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C      ANTECEDENT  CONDITIONS  ONLY 
C 

210  GO  TOI4240.4241  1  .NRUOFF 

4241  WRITE(7.2013)(MATCIJI.JJI).JJI=1,4).MM 

2C13  F0RMATI3A6iA1.53x.ini 
GO  TO  220 
C 

C      ANTECEDENT  CONDITIONS  AND  RUNOFF 
C 

4240  GO  T0I9561.957] I.LSW 

9561  GO  T0I3211 .96621 .NTRACE 

3211  WRITE(7.2003)(MATCIJI.JJ!),JJI=1. 4], LTIMEG. AJRATE .SUMO, MM 

2003  F0RMATI3A6.A1,29X,I6.F10.4,F7.4,1X.IB1 
GO  TO  220 

9562  WRITE(7,9563)IMATCIJI.JJI),JJI=1,4).LTIME0,AJRATF,MM 

9563  FORMAT(3A6,A1,29X,16.F10.4.7X.1HT.18I 
GO  TO  220 

9571  60  TOI3212.9572 I.NTRACE 

3212  WRITE!  7.20081  (MATCIJI  ,JJi>,JJI=1.4l  .MONO.  NOD  .LT  IMF.0.  AJRATE  .  SUMO.  MM 

2008  FORMATI3A6.A1.23X.2I3.I6.F10.A.F7.',  .1  X.  I»] 
GO  TO  220 

9572  WRITE  I  7. 9574) (MATCIJI .JJI ) ,JJI=1  ■  A  I .MONO .N^D . LT I MEO. A JRATE .MM 
9574  FORMAT(3A6,Al,2  3X.2I3,I6,F]0.4,7x.iHT.IS] 

Gn  TO  220 
215  RE ADI2.2001IMODT.LT I MEP.NAI.NSUM.XORAI 
IFIK0RAI.NE.81G0  TO  215 
C 

C      ANTECEDENT  CONDITIONS  AND  RAINFALL 
C 

GO  T0I4250. 4251 1 , NRUOFF 
A251  WRITE  17. 201AI {MATCIJI  , JJ I )  , J J  I  =  1 ,4 > . MODI ,LT IMEP ,NA I .NSUM.MM 
2014  FORMATI3A6.Al.3A6.A5.30x. 181 
GO  TO  720 
C 

C      ANTECEDENT  CONDITIONS-RAINFALL-RUNOFF 
Z 
4250  GO  TOI9583. 95891 .LSW 

9583  GO  TOI216. 95841 .NTRACE 

2  16  WRITE(7,2  0C9)(MATC(JI.JJ!).JJI=1.4)  ,MODT  .LT  IMEP  .NA  I  ,NSUM«  LT  IMEQ,  A  J 
IRATE. SUMO. MM 

2009  FORMAT I3A6.A1.3A6.A5.6X. I 6.F10.4.F7.4.1X .16  1 
GO  TO  220 

9584  WR I TE ( 7. 9585  I IMATC ( J  I. JJI I. J  J  I  =  1.4  I. MOPT.LT I  ME P. NA I .MSUMtLT I  ME 0. A J 
IRATE. MM 

9585  FORMAT!  3A6.A1.3A6.A5.6X,!6.F10.4,7x,lHT.Iftt 
GO  TO  220 

9589  GO  T0I217.95O2I .NTRACE 
217  WRITE (7.2004) (MATCIJI • JJI ) •  JJ 1=1 .4  I .MOOT .LT JMfP , NA I ,N SUM, MONO. NOD. 
1LTIMEO. AJRATE .SUMO. MM 

2004  FORMAT (3A6.A1.3A6.A5.2I-.I6.F10.4.F7.4.1X.I8) 
60  TO  220 

9592  WR1TEI7. 95931  I MATCIJI. JJI  l.JJl  =  l. 4) .MOPT .LT IMFP .NA I ,NSUM .MONO. NOD . 

1LTIMEO. AJRATE. MM 
9593  FORMAT(3A6.A1.3A6.A5.2I3.I6.F10.4.7X.1HT.I8I 
22r     MM=MM+1 
MR=MR+1 
JI=JI+1 

ifiout.ne.5igo  to  3221 
out  =  i 
writei7.20c5imm 

MM=MM*1 

2005  FORMATI72X. 181 
GO  TO  225 

3221  OUT=OUT-H 
C 

C      DETERMINE  END  OF  SELECTED  RUNOFF  EVENT 
C 

225  IF(OEA.EO.KUPDAT.AND.QEN.EO.NUM)GO  TO  400 
MMM=? 
GO  To  176 

400  IFIMR.GT. COUNT. AND. MR. GT .NUMBER ) GO  TO  4227 
NRUOFF=2 

GO  TO  190 
4227  GO  10(4225.4226) .NBR 
4226  KRUN=4 

GO  TO  30 
C 

C      DETERMINE  IF  END  OF  RUNOFF  STATION 
C 

401  IF! IWI0.E0.99.0R. I W I D. EQ.999 )GO  TO  500 
GO  TO  30 

C 

C      MEAN  DAILY  DISCHARGE  AND  THIESSEN  WEIGHTED  IfAINFALL  OUTPUT 

C 

C 

C      DETERMINE  AVERAGES  AND  SUMS  OF  MEAN  DAILY  DISCHARGES  AND  THIESSEN 

C      WEIGHTED  RAINFALL 

C 

500  DO  5020  J  =  l .12 

SUMPrO. 

SUM=0. 

I I=M( J| 

AI  1  =  1  I 

DO  5019  1=1.11 

IF(P( J. I I.EO.O.01GO  TO  5017 

LPR= !P( J. I )+. 0051*100. 

ALPR=LPR 

SUMP=SUMP+ALPR« .0 1 
5017  IFICTABLEI J. I  I . NE .0. 0  I SUM=SUMtC T ABLE  I  J . I  I 

5019  CONTINUE 

CTA6LEI J.32I=SUM/AI I 
PI  J. 32) =SUMP 

P(J,33)=(SUMP+PYRSP(J1»YRSREC(JI)/(YRSREC(JI+1.1 
YRSRECI JI=YRSREC( J ) *  1 . 

5020  CTABLEI J. 33) =SUM«23 . 80 1653/AREA I IDW) 
C 

C      DETERMINE  IF  HAVE  TRACE  RUNOFF  OR  RAINFALL 
C 

DO  5050  J=l . 12 
DO  5050  1=1,33 

IFICTABLEIJ.ll.NE.O.O.AND.CTABLEIJ.ll.LT .0.005  I C TABLE  I  J , I  1=99999.9 
19 
IFIPIJ.1).NE.0.0.AND.PIJ.I).LT.0.005)P(J.I)=99999.99 
5050  CONTINUE 


REWIND  2 
C 

C      NSEND=1  FOR  RUNOFF  OUTPUT 
C      NSEND=2  FOR  RAINFALL  OUTPUT 

C      RUNOFF  AND  RAINFALL  FIRST  WRITTEN  ON  SCRATCH  TAPE  2 
C      TABLES  CTABLEI J. 1  I  AND  PIJ.I]  ARE  WRITTEN  3  MONTHS  PER  BLOCK 
C 

NSEND=1 
C 

C      DETERMINE  TYPE  OF  OUTPUT  FORMAT 
C 
5051  LL  =  1 

LLL  =  3 

DO  5300  IL=!,4 

DO  5290  1=1,33 

K  =  0 

DO  5100  LJ=LL.LLL 

K  =  K-M 

60  TOI5079.5081 ) .NSEND 

5079  IFICTA6LE ILJ.I ) .E0.99999 .99 ) GO  TO  5080 
60  TO  5078 

5081  IFI P(LJ, I ) .EO. 99999. 99)00  TO  5080 
5078  NC0DEIXI=2 
GO  TO  5100 

5080  NC0DEIXI=1 
5100  CONTINUE 

NF0RM=NC0DEI 1 1*100+NC0DEI2)»1C+NC0DE(3I 
DO  5120  MM=1 ,8 

IF(NUM6lMM).E0.NF0RM)G0  TCI  5600. 5601. 5 6C 2. 5603. 5604. 5605. 5606. 5607 
1  )  .MM 
5120  CONTINUE 
C 

C      ALL  THREE  DAYS  TRACE 
C 

5600  WRITEI2.111 I 

111  F0RMATI3I8X.1HT) | 
60  TO  5290 

r 

C      NO  TRACE  RUNOFF  OR  RAINFALL 
C 

5601  GO  TOI7002. 70031. NSEND 

7002  WRITE  I  2.222  I (CTABLEI MI  ,1 ),MI=LL,LLL] 
222  FORMAT! 3(F8.2. IX  )  ) 
GO  TO  5290 
7  003  WRITEI2.888)IPIM1,II,KDIM1.II,MI=LL.LLL) 
888  F0RMATI3IF8.2.A1 ) I 
GO  TO  5290 
C 

C       FIRST  DAY  TRACE 
C 
560?  L0=LL*1 

GO  T0(7004, 7005 ) .NSEND 

7004  WRITE  I  2, 1221  ICTABLEIM]  , I  ] ,MI =L0 ■ LLL I 
122  F0RMAT(8X,1HT.2(F8.2,1XI ) 

GO  TO  5290 

7005  WRITE  I  2, 788)  IP (MI  ,1  )  .XDIMI • I  ) .MI =L0.LLL1 
788  F0RMAT(8X.1HT.2(F8.2 »A1  I  ) 

GO  TO  5290 
C 

C      FIRST  TWO  DAYS  TRACE 
C 

5603  GO  TOI7006, 7007) .NSEND 

7006  WRITEI2.1121CTABLE(LL»2, I  I 

112  FORMAT!? (8X. 1HT ) ,F8. 2) 
GO  TO  5290 

7007  WRITE(2.778>PILL*2.I).XD(LL*2.1) 
778  F0RMAT1?18X.1HT I .F8.2.A1 I 

GO  TO  5290 
C 

C  SECOND  DAY  TRACE 
C 

5604  GO  TOI7008. 7009 ) .NSEND 

7008  WRITEI2.212ICTABLEILL. I  I  .CTABLE I LL*2 . I  I 
212  F0RMAT(F8.?.9X , 1HT.F8.? ) 

GO  TO  5290 

7009  WR1TEI2.876IP(LL.II.XD(LL.I),PILL.2,II,XD(LL*?,II 
878  F0RMAT(FB.2.A1.8X.1HT.F8.2.A1) 

GO  TO  5290 
C 

C      LAST  DAY  TRACE 
C 

5605  L0=LLL-1 

GO  TOI7010. 7011 ) .NSEND 

7010  WRITEI?.2211 (CTA6LEIMI .1 ),HI=LL,LOI 
221  FORMAT (2 (F8.2. IX) .8X .1HT ) 

GO  TO  -^29' 

7011  WRITE(2.887>(PIM],1I,KD(MI,I1,MI=LL,L0I 
887  FORMATI2IF8.2.A1) .8X.1HTI 

GO  TO  5290 
C 

C  FIRST  AND  THIRD  DAY  TRACE 
C 

5606  GO  10(7012, 7013>,NSEND 

7012  WRITE(2,121)CTABLE(LL'l. I  I 
121  FORMAT I8X. 1HT.F8. 2. 9X. 1HT ) 

60  TO  6290 

7013  WR1TE(2.787]P(LL»1,II.XDILL*1,II 
787  F0RMAT(8X,1HT,F8.2,A1.8X,1HT) 

GO  TO  5290 
C 

C  SECOND  AND  THIRD  DAY  TRACE 
C 

5607  GO  10(7014, 70151. NSEND 

7014  WRITEI2.211KTABLEILL.  1  I 
211  FORMAT1F8.2.1X.21 8X. 1HT ) ) 

60  TO  5290 

7015  WRITE(2.B77)P(LL,I).XDILL.I) 
877  FORMAT IF8.2.A1.2I 8X. 1HT ) I 

5?90  CONTINUE 

LL=LL»3 
5300  LLL=LLL*3 

NSEND=NSEND+ 1 

IFINSEND.E0.2IG0  TO  5051 
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C      OUTPUT  RUNOFF  ANO  RAINFALL-PUNCH  CARDS  AND  LIST 
C 

5303  DO  5400  1=1.132 

5400  READI2.6001  I  (NT(  I  ,  J  I  ,J=1  .61 

6001  FORMAT! 3( A6.A3 I  1 
NUM=1 

NUM1«2 

DO  5450  1=1.33 
1FI  1.GT.MI2I  IGO  TO  5430 
5425WR1TEI7.6002IINTII,I1I,I1=1.6I.INTII*33.JII,II=1.6).INTII*66.III.I 
11  =  1.4)  .NUM. I  NT  I  1*66. I  1  I • I  I "5.6  I .  INT ( I *99 . I  1  I . I 1  =  1 .6  I  . NUM 1 

6002  FORMAT I8IA6.A3)  .  I  5  .  2 X . 1H1 /4 I A6 . A3  1 . 36X . I  5 i 2X . 1H2  I 
IF( I .GT.31 IGO  TO  5440 

GO  TO  5438 
5430  IFI I.GT.30IGO  TO  5435 

WRITEI7. 6004 KNTII. III. 11=1. 21. INTII. III. 11=5. 61. INTII*33. Ill, 11=1 
1.61 .(NT  I  1*66. 111.11  =  1.4!  .NUM. {NT (  1*66. I  I  I i 1 1 =5 .61 > INT  I  1*99. 111.11  = 
21.6  1 .NUM1 

6004  FORMATIA6.A3.9X.6IA6.A3I ,I5.2X.1H1/4(A6.A3I,36X.I5.2X.1H2I 
GO  TO  5440 

5435  1FI 1 .GT.31 IGO  TO  5425 

WRITE(7.6005IINTI1,III.II=1.2I.INTII.1I1,1I=5.6I.INTII*33.III.II=3 
1 ,4  1  .INT  I  1*66.1  I  I .1  1  =  1.41  .NUM. ( NT  I  I  *99 . I  I  I .  I  I  =  1  . 2  I  . I  NT  I  1  *99 .  II  I . I  I  = 
25.61 .NUM1 

6005  FORMATI3IA6.A3.9XI.2IA6.A3I.I5.2X.1H1/2I9X.A6.A31.36X.I5.2X.1H2I 
GO  TO  5443 

5438  XOUNT=XOUNT+2 

IFIKOUNT.NE. 10IGO  TO  5440 
PCOUNT  =  0 
NUM=NUM1+1 
WRITEI7.6003INUM 

6003  FORMATI72X.I5I 
NUM=NUM1 
NUM1=NUM+1 

5440  NUM=NUM*2 
5450  NUM1=NUM*1 

NSEND=NSEND*1 
KOUNT=0 
CALL  CHKPTI30I 
IFINSEND.E0.2IG0  TO  5303 

WRITE  I  7, 6666  I IPI  1 .331 .VRSBEC I  1  I .  1  =  1.61  .KEND. (PI  I  .33)  .YRSKEC I  1  I  . I =7 
1.12) .KENO 
6666  F0RMATI6IF6.2.F4.0) .17X,13/6IF6.2.F4.0I.17X,I3I 
IFINTEMP.EO.CIGC  TO  4225 
C 
C       MAXIMUM-MINIMUM  TEMPERATURE  COMPUTATIONS 

STORE  MAXIMUMS  IN  MATRIX  CTABLE  AND  MINIMUMS  IN  MATRIX  P 
C 

DO  8002  1  =  1  .12 
AVMX I  I )=0.0 

8002  AVMNI I 1=0.0 

DO  8003  1=1.12 
DO  8003  J=1.33 
NTMAx I  I ,JI=0 

8003  NTMINI1.JI=0 
READ(5.8005)(AVMXIK).AVMn:K).k»1.12).AK 

8005  FORMATI 12F6.1/12F6.1 .F8.01 
C=AK*1. 

DO  8050  1=1.12 
I  I  =MI  I  I 
NSUMlrO 
NSUM2=0 
L  =  0 

DO  8040  J=1.II 
READ  I 5.8010)MONTH.NDAy .NTMAX I  MONTH. NO AY  I ,NTMI  N  I  MONTH  ,  NDAY )  .LEND 


8010  FORMATI2I2.214.67X.il) 

NSUM1=NSUM1* NTMAX I  MONTH, NDAY I 

NSUM2=NSUM2+NTMINIMONTH,NDAY ) 

[FIL.NE.01GO  TO  8021 

NCI = NTMAX I  MONTH, NDAY ) 

NC2  =  NTMIN I  MONTH, NO AY  I 

L  =  l 

GO  TO  8040 
8021  IF! NTMAX I  MONTH, NDAY I .GT.NC1 I  NCI = NTMAX I  MONT h 

IF (NTMINI MONTH, NDAY I .LT.NC2 ) NC2  =  NTM| N I  MONTH 

IFILEN0.E0.9IG0  TO  8041 

8040  CONTINUE 

8041  NIMAx I  I ,32 )=NSUM1/ I  I 
NTMINI I ,321=NSUM2/I I 
A=NTMAXI I ,321 
B=NTMINI I ,321 
AC1=NC1 

AC2=NC2 

AMEANI  I  1  =  1 ACl*AC21/2. 
NTMAX I  I .331  =  I AVMX I  I l»AK*AI/C 
NTMINI 1.331= I AVMNI I }*AK+B)/C 
AVMXI I )= IAVMXI I 1*AK+A)/C 
AVMNI  I  )=  I  AVMNI  I  I  •AK  +  Bl  /C 
8050  CONTINUE 
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NUM1=1 

NUM2=2 

DO  8450  J=l,33 

IFIJ.GE.32.OR. J.LE.MI2 1 IGO  TO  8425 

GO  TO  8430 
8425  WRITEI7.8600HNTMAXII.J).NTMINII,J],I»1.81,NUM1,(NTMA 

1  I ■ Jl  .1=9.121  .NUM2 
8600  FORMAT  18  I  2 14. IX  I .I5.2X.1H1/4I2I4.1X1.36X.I5.2X.1H2I 

IFIJ.E0.32IGO  TO  8800 

IFIJ.E0.33IGO  TO  8450 

GO  TO  8438 
8430  IFIJ.GT.30IGO  TO  8435 

WRITE  I  7, 8604) NTMAX I  1 . J  I .NTMI N I  1 . J  I , I NTMAX I  I .Jl .NTMINI 
1UM1 . I NTMAX I I.JI.NTMINII.JI . I =9 , 1 2  I ,NUM2 
8604  F0RMAT1214,10X,6I2I4,1X)  , I  5, 2X . 1H1 /4 I  2  I  4 . 1 X  I 36X , I  5 .2X 

GO  TO  8440 
84  35  WRITE  I  7, 8605  I  INTMAX(i,JI,NTMlN(I.JI,I  =  l,6.2l  .(NTMAX I  I 

1).I=7.8).NUM1.(NTMAX(!.J).NTMINII.J)»I=10»12.2) .NUM2 
66C5  FORMATI 31 214.10X1 ,2(2I4,1X),I5.2X,1H1/2(9X.2I4,1XI,36 

GO  TO  844C 
8600  NUH1=NUM1*2 

NUM2=NUM1+1 

WRITE  I  7, 8605)  I AMEANI 11,1  =  1,81  ,NUM1, (AMEANI  II .1-9 
8805  FORMAT < F6.1. 7 (4X.F 5.1 ) . I  8 . 2X , 1H 1 /F6. 1 , 3  I 4X .F5  .  1  I 

GO  TO  8440 
8438  <OUNT=XOUNT+2 

IF  I KOUNT.NE. 10IGO  TO  8440 

NUM1=NUM2+1 

WR  ITE (7.6003INUM1 

XOUNT=0 

NUM1=NUM2 

NUM2=NUM1 *1 
8440  NUM1=NUM1*2 
8450  NUM2=NUM1+1 

WRITE (7. 8999  I (AVMXI  I  I .AVMNI  II. 1  =  1, 121, C 
8999  FORMATI12F6.1/12F6.1.F8.0I 
4225  1FINEND.E0.9ISTOP 

KOUNT=0 

GO  TO  146 

END 


[ I . J] .NTMINI 


I .Jl .1 
•  1H2) 
.J) .NT 
X.I5.2 


MINI  I .J 
X.1H2 I 


.NUM2 
.15. 2X 
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APPENDIX  LIST  E2 .    --    DETAILED   DESCRIPTION  OF   THE   VARIABLES    USED   IN   PROGRAM  E 


5  ■-'  pi 

ACDR 

ACP 

ACYRR 

AI 


Ii 

IGAGE 

1NGAGE 

IHID 

IU 


KUPDAT 
LEND 


DESCRIPTION  OF  VARIABLES 


Accumulated  daily 


Precipi 


for  Si 


al 


inche 


./hr. 


Accumulated  yearly  runoff  in  inches. 

Rainfall  intensity  for  given  time  interva: 

Discharge  rate  corrected  for  pondage  in  in./hr. 

Length  of  station  record  for  max-min  temperature  observations. 

Two  definitions: 

1.  Update  identification  code  for  raingage  station. 

(This  code  is  given  at  the  end  of  the  rainfall  listing.) 

2.  Update  identification  code  for  raingage  R-l  specifying 
when  new  Thiessen  weights  apply.   New  Thiessen  weights 
would  be  required  if  the  raingage  had  been  moved 
during  the  year.   Note  that  this  code  applies  only 
when  R-l  data  are  on  magnetic  tape. 


ANTN 

Two  definitions: 

1.      Sequence   or    list   number   for    the   beginning  of   anl 

dene    conditions.       (Antecedent    conditions  may  be 

reported    for   anv   period;   however,    the   most    cotnmi 

reporting  interval  is    30   days.) 

2.      Sequence   or    lisc   number    that    specifies  when   new 

Thiessen  weights   are    to  be   applied   to   R-l    data. 

AREA(J) 

Watershed   area    in   acres. 

J=l,15 

AVMN(K) 

Station   average  minimum   temperature. 

K=1,12 

AVMX(K) 

Station  average  maximum   temperature. 

K=l,12 

.ih:, 


of  1  or  2. 


Index  code  having  pos< 

CORT  =  I:   R-l  daily  rainfall  data  are  on  punch  cards  and 

must  be  read  from  normal  input  tape  (S.SU05). 
CORT  =  2:   R-l  daily  rainfall  on  the  same  tape  as  R-2, 
R-3,  etc.  (S.SU00). 


Daily  rainfall  ace 
punch  cards  (CORT  ■■ 


nulation  for  R-l  gage  when  this  data 
1). 


ula 


Daily  rainfall  ac 

Time  of  day  in  hours  for  precipitation  event. 

Time  of  day  in  hours  for  runoff  event. 

Variable  integer  for  indexing  TWTS(I),  NT(I,J)  and  the  lo 
limit  of  the  load  loop  for  RA(J),  AREA(J),  PYRSP(K)  and 
YRSREC(K)- 


Last  two  digit. 

Raingage  identif icatio 

Raingage  from  which  th 

Watershed  identif icati' 

First  two  digits  of  thi 

Watershed  identif  icat  ii 
the  selected  event  is 


tershed  i< 
.on  number 


tershed  ide 


ode  for 
e  taken 


itification  code, 
watershed  from  w 


Variable 


eger  for  indexing  RA(J),  AREA(J)  and  NT<I,J). 


Index  code  having  possibl 
JEND  =  0:  More  card 
JEND  =  9:   Last  data 

Variable  integer  used  to 
for  RA(J)  and  AREA(J). 


alues  of  0  or  9. 
o  be  loaded. 

rd  for  R-l  raingage. 

the  upper  limit  of  the  read  loop 


Variable  integer  for  indexing  PYRSP(K)  and  YRSREC(K). 

Variable  integer  used  to  set  the  upper  limit  of  the  read  lo 
for  PYRSP(K)  and  YRSREC(K). 

Index  code  identifying  the  information  contained  in  a  given 
of  precipitation  input  data.   One  print  line  is  equivalent 
90  card  column  positions. 

Index  code  identifying  the  information  contained  in  a  given 
line  of  runoff  input  data.  One  print  line  is  equivalent  to 
131  card  column  positions. 


Index   code 
(S.SU02). 


ed    CO    identify   data 


Index   code  having   possible   valu 

KRWDO  =    0:      Continues   norm 

KRWDO  =    1:      Precipitation 

Index   code  having   possible  valu 

KRWD1  =   0:      Continues    norm 

KRWD1  =    1:      Runoff    tape   mu 


Updat. 
Index 


t?s   of   0 
al    input 


s   of   0   o 
1    input 


i> it  her   p 
cs   of   0 


having   possible  > 
LEND  =   0:      More   max-min    temperature   data 
LEND  =   9:      Last   max-min    temperature   data 


Till!    s.'iunJ    6-digiC     field    from   a    g 
data   are   a   part    of   the   precipitat 


S.SU02.   The 


Identificat 
Tabic  A3). 


Ivctrd  even 
ifying  the  type  of  precipi 
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Symbol 
MODA 

M0DT 
M0NQ 
MONTH 

MDNTH0 

NA1,  NA2, 
NA3,  NA4, 
NA5 


NDAY 

NDAYO 

NDAYQ 
NEND 


6-digit  field  fr 
a  part  of  the  pre 


ord  on  S.SU02.   These 


MODA 

Month  of  year  (r 


Month  of  year  (precipitation  data  on  S.SU05)  and 
for  NTMIN(M)NTH,  NDAY)  and  NTMAS(MDNTH,  NDAY). 


Month  of  year  (precipitation  data  on  S.SU00). 

Antecedent  conditions  that  have  been  written 
defined  as  NA1,  NA2,  NA3,  NA4,  NA5,  and  are  s 
MATC. 

The  third  6-digit  field  from  a  given  record  o 
data  are  a  part  of  the  precipitation  selected 


S.SU02.  These 


index  for  NTMIN(M0NTH, 


Day  of  month  (data  for  S.SU05)  and  . 
NDAY)  and  NTMAX (MONTH,  NDAY). 

Day  of  month  (data  from  S.SUOO). 

Day  of  month  (data  from  S.SU01). 

Index  code  having  possible  values  of  0   or  9. 

NEND  =  0;   More  parameter  cards  to  follow. 
NEND  =  9:   Last  parameter  card  to  be  processed. 

Index  code  having  possible  values  of  J_  or  2. 

N0P1  =  1 :   Cards  containing  watershed  areas  and 
conversion  factors  are  not  required. 
NOP1  =  2:   The  above  tables  are  required. 


X  code  having  pi 
N0P2  =  1 :   The 


ible  values  of  1 


2. 


ration  average  monthly  rainfall  and  years 
record  per  month  plus  Thiessen  weight  tables 
are  not  required. 
The  above  tables  are  required. 


The  fourth  field  (5-digit)  from  a  gi 
These  data  are  a  part  of  the  precipi 


NT(I,J) 

A   storage  matrix    for  me. 

1=1,132 

weighted   rainfall. 

J=l,6 

NTEMP 

Index    code   having  possil 

NTEMP  =    0:      Max-mii 

NTEMP  =    1  :      Max-mii 

NTMAX (MONTH, 

Maximum  daily    temperati 

NDAY) 

M0OTH=1,12 

NDAY«I,31 

NTMIN(MDNTH, 

Minimum  daily    temperatt 

NDAY) 

MDNTH=1,12 

NDAY«1,31 

NUM 

Sequential    list    number 

serves  as   the  refereno 

inpuc    tapes. 

NYEAR 

Year. 

PYRSP(K) 

Station  average  monthl: 

K=1.12 

daily  discharge  and  daily  Thies 


Two  definitions: 

1.  Update  identification  for  the  runoff  station.   (This 
code  is  given  at  the  end  of  the  runoff  listing.) 

2.  Update  identification  code  for  the  raingage  station 
requiring  a  new  Thiessen  weight.   In  situations  where 
Thiessen  weight  changes  must  be  made,  the  first 
parameter  card  will  contain  coding  (QANTA  and  QANTN) 
that  will  be  required  to  locate  the  point  at  which 
the  new  Thiessen  weight  must  be  applied  to  the  R-2 
raingage.   Subsequent  parameter  cards  must  contain 
similar  information  for  R-3,  R-4 ,  etc.,  raingages. 


Two  definitions: 

1 .  Sequence  number 

2.  Sequence  number 
Thiessen  weight 
etc.,  raingages 


to  b« 


QBA 
QBN 
QEA 

QEN 

RA(J) 
J-1,15 


RBN 
REA 

REN 
RSTAS 


ginning  of  antecedent  runo 
fies  the  point  at  which  ne< 
applied  to  R-2,  R-3,  R-4. 


o  1 1 


Update  identification  code  for  seleci 
Sequence  number  for  the  beginning  of  the  selected  runoff  event. 
Update  identification  for  the  end  of  the  selected  runoff  event. 
Sequence  number  for  the  end  of  the  selected  runoff  event. 
Conversion  factors  (CFS  -  in./hr.). 

i  code  for  the  beginning  of  the  selected 

Sequence  number  for  the  beginning  of  the  selected  rainfall  event 
Update  identification  code  for  the  end  of  the  selected  rainfall 


Sequence  numb 

The  numb 

cqujl  CO  the  number 

Runofl     for   given   Cli 

Thiessen  weights  I-- 


for  the  end  of  the  selected  rainfall  event. 


£  raingages  that  will  be  used  to  report  lime- 

lues  for  selected  event.   The  number  normally 

of  24 -hour  raingages  on  the  watershed. 


APPENDIX  LIST   E2 .    --    CONTINUED 


YRSREC(K) 
K=l,12 


Description 
s  record  associated  with  PYRSP(K) 


ACDR 

See  Input. 

AI 

See  Input . 

AJRATE 

See  Input . 

AMEAN(I) 

The  average  of  Che 

1=1,12 

month   Defined  as: 

(AC1  +  AC2)/2. 

ARAIN(I.J) 

Storage  matrix  for 

1-1,12 

J=1.33 

ARUN(I.J) 

Storage  matrix  for 

temperatures  for  Che 


AVrfN(I) 
1=1,12 


KD(MI.I) 
MI=1.12 
1=1,33 


ke:.ti 

KOCHK 

KORAI 
LCODT 
LTIMEP 
LTIMEQ 


MATC(Jl.JJI) 

JI=1.32 

JJ1=1,4 


MM 


MODA 
MODI 
MOW) 
MONTHO 


NQD 

NSUM 

NTd.lI) 
=1 , 132 
1=1,6 


NTMINd.J) 
=  1,12 
=  1  ,'J'J 


Current  numbe 
(C  ■  AK  +  I). 


Mean  daily  discharge  in  CFS . 


Variable  inceger  for  indexing  AVNN(I),  AVMX(I),  CTABLE(MI , I ) , 
AMEANd),  P(MI,I),  KD(MI.l),  ARAINd.J),  ARUNd.J),  NT(I.II), 
NTMAX(I.J)  and  NTMINd.J). 

Variable  inceger  for  indexing  NTd.II). 

Variable  inceger  for  indexing  ARAINd.J).  ARUNd.J),  NTMAX(I.J), 
NTMINd.J).  NELK(J). 

Variable  integers  for  indexing  MATCtJI , JJI) . 

Storage  macrix  for  eicher  a  blank  space  or  a  T.  depending  on 
whecher  or  not  the  Thiessen  weighted  rainfall  or  mean  daily 
discharge  value  was    0.0005  inch  or  CFS,  respectively-   T 
for  trace.   Blank  if  Value    0  or    0.005. 


ldcnlifiiati 


ode    dc 


ing    Che    end    of    ^Jata 


itten    on   S.SU02. 


ConsCant    (8)    used    to    idencify    data   written    on   S.SU02. 

Military   time  plus    10.000   for  precipicat ion  event. 

See  Input 

Military  time  plus  10.000  for  runoff  event. 

Storage  macrix  for  ancecedent  conditions.   Data  stored  in 
alphameric  mode. 

Variable  integer  for  indexing  PfMI.I)  and  KD(MI.I). 
Card  sequence  number. 

See  Input 

See  Input. 

See  Input  . 

-NAYO  (negative  day) . 

See  Input 

-J  (negative  day) . 
-NDAYO  (negative  day  J 
-DAYQ  (negative  day). 
See  Input . 


Symbol 

Description 

WTY 

Type  of  precipitation  code  (Table  A3). 

NUM 

Sequence  number. 

NUM1 

Sequence  number 

HUM2 

Sequence  number . 

P(Hl.I) 

MI=1,12 
1=1,33 

Thiessen  weighted  daily  precipitation. 

5 1 IM 

Accumulated  storm  precipitation  in  inche 

SUMQ 

Accumulated  storm  runoff  in  inches. 

YRSREC(I) 
1=1,12 

See  Input . 

PROGRAM 
(Input/Output  Variables  are  not  Included) 

A 

Year  divided  by  4  (leap  year  test)  and  a 

AA 

AC1 

AC2 

All 

ALPR 

M 


l :  ft 
IGC 


N( 
M  2 
NDD 
NETY0 


Truncated  A  (leap  year  test). 

NCI  (converted  to  floating  point  arithmetic). 

NC2  (converted  to  floating  point  arithmetic). 

Number  of  days  per  month. 

LPR  (converted  to  floating  point  arithmetic). 

LHR  (converted  to  floating  point  arithmetic). 

Average  minimum  temperature  for  the  year. 

Variable  integer  for  indexing  MATC(C01TNT, I) . 

Variable  index. 

Lasc  two  digits  of  watershed  identification  c 

I GAGE. 

Number  of  day; 


A  [  S 


onch  during 
a  variable 


R 

Variable  integer  for  indexing. 

K 

Variable  integer  used  in  branching  in 

KIW 

Variable  integer  used  in  branching  in 

KOUNT 

Counter  to  determine  where  blank  card 

.  KI'N 

Variable  index  for  branching. 

L 

Index  code  to  initialize  max-min  temp 

LAST 

Variable  integer  for  branching. 

LBR 

Variable  integer  for  branching. 

LHF 

Variable  integer  for  branching. 

LHR 

HR  truncated. 

LJ 

Variable  index. 

LL , LLL 

Variable  indexes  for  write  routine. 

LHIN 

Minutes- -defined  as: 

to  be  placed. 


(LM1N  =  (HR-AT)  60  +  .005.) 


V.,r 


able  index  fo 


ite  lo 


Defi 


LPR  =  (1>(J.1>  *  .005)100. 
Variable  integer  for  branching. 
Variable  integer  for 
Days  per  month. 

Variable  inceger  for  indexing  NUNB(MM)  . 

Variable  integer  for  branching. 

Counter  of  the  number  of  cards  punched. 

Variable  inceger  for  branching. 

Variable  incegcrs  having  Che  value  of  1 .  2 


i ly    tempo 
1 ly    tempo 


the 


one  h . 
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APPENDIX  LIST  E2 


•-    CONTINUED 


Symbol 
NFOR 


NP 
NQM 

NRSTAS 
NRUOFF 

NSUM1 

NSUM2 

NTRACE 

NTYPE(I) 
1=1,8 

NUMB (MM) 
MM=1,8 


Format  statement  number  defined  as: 

NFOR  =    lOONCODE(l)   +   10NCODE(2)   +  NCODE(3). 

Variable  integer  for  branching. 

Previous  value  of  LTYPRE. 

MDNQ. 

Counter  of  the  number  of  24-hr.  raingages  proces 

Variable  integer  for  branching. 

Variable  integer  for  branching. 

Accumulated  sum  of  daily  maximum  temperature. 

Accumulated  sum  of  daily  minimum  temperature. 

Variable  integer  for  branching. 

Type  of  precipitation  (see  Table  A3). 


Fox 


ent  number 


S.SU02  for  gi- 


NYR 
OUT 


A  truncated  (leap  year  test). 

Variable  integer  for  branching  ins 

Counter  to  determine  where  blank  c 
during  selected  event  punch-out. 
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